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"LEGAL NOTICE" 


"This report was prepared by the organ! zation( s) named below 
as an account sponsored by the Tennessee Valley Authority. 
Neither fVA, the organ! zation( s) named below, nor any person 
acting on their behalf: (a) makes any warranty express or 
implied, with respect to the accuracy, compl eteness , or 
usefulness of the information contained in this report, or 
that the use of any information, apparatus, method, or 
process disclosed in this report may not infringe privately 
owned rights; or (b) assumes any liabilities with respect to 
the use of, method, or process disclos.'d in this report." 

( Organ! /.ation( s) that prepared this report:) 


COMPUTER SCIENCES CORPORATION 


ADSTRArr 


This procjram was dpsiiined to Ihj an t'dltor for t.lu' I.owis Chemical 
Equilibrium proqram input and is used tor storaqe, manip- 

ulation and retrieval of the larqe amount of data required. 

The files are based on the facility name, case number, and 
table number. The data is oa.sily recalled by supplyinq the 
sheet number to be displayed. The retrieval basis is a "sheet" 
where "sheet" is defined to be all of the individual flow 
streams which comprise a given portion of a coal gasification 
system. A "sheet" may cover more than one page of output 
tables. The program allows for the insertion of a new table, 
revision of existing tables, deletion of existing tables or 
the printing of selected tables. 

No calculations are performed. Only pointers are used to 
keep track of the data. The process is done interactively 
with a TEKTRONIX 4000 series terminal and the UNIVAC 1100/82. 

A copy of the progrcim also resides on the Honeywell SIGMA V 
System. 
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1.0 INTRODUCTION 


1.1 PURPOSE 

The STREAM program was developi'd for Uie purpose of quick re- 
trieval of stored data in slieols. The retrieval basis is a 
"sheet" where "sheet" is defined to be all of the individual 
flow streams whicn comprise a aiven portion of a coal gasi- 
fication system. A "sheet" may cover more than one page of 
output tables. 

The sheets can be revised or deleted. Once a change has been 
made, this change is reflected in all of the flow streams. 

The final results are displayed, one sheet at a time, in the 
form of a table. The program was written for the UNI VAC 
1100/82 and the Univac control language is used in this docu- 
ment. To run the program on the Honeywell Sigma V, only the 
control cards need to be changt'd. 

The STREAM Progr 2 im was developed for the Computer Services 
Organization (Aini) in support <»f activities in the Coal 
Gasification Task Team (PF15) under NASA cent ract NAS8-31640. 

1.2 MSEC FORM 3559 
See the following page. 
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tlSCR RCSOURCCS P.iUJ^CTION PLAN 
HUNTSVILLE COMi’UrEH COMPLEX 


• NAMI or riQUtfTin 04 ch*/MUr«|; 

Aom French 


«. NAMI or riMjjecr U4) «hw»cMr^. 
TVA Coal Gasification 


> TlLirHONI NUMBE Mr 

453-402A 


3. OBGANIZATION M nh u»ct«M|: 1 •. PHOJ^Cf (UPNl (T chxtt r. OATC Or MFvjUi 

PAOl I 7/U-44-20 I a/3/ao 


JOB 

NUMBER 


I. X>» TITLE (a 4 «har«ctw^: 

TVA Coal Gasification 



SERIES COOP 

COO. ACT. 


rnojEOT 


a/d/ao 


SYSTPr* 


9 . JOBOESCniPTlON (aOJclinrsciart): 

Provide flow sheet graphics; absorption, stripping, and distillation ccMHj»a 


design; facility and equlpuiant sizing ;ind plant layout; startup procKitrj r 


timelines; and analyses of; cost and economics, material and energy b^)^mce» 


combustion equilibrium for the TVA Coal Gasification facility. 


• 
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ai. COMPUTER lOENTiriCATION: 


ESTIM.ATCO HOURS/SUPS 

2ND. orn 

SHD. Qrii 

11. 

13. 

1927 

1926 

17. 

ta. 

11 

10 



UNI VAC 1100 


UN 01 NG lOUNCE: 


O rapm 


D DfcO 


36 . T.LSK NUMBER 


□ RicD B Rf 


37 . TASK TITLE (34 characMr«) 


TOTAL 


6 


$105,957.50 


^$5,880.00 


32 . TOTAL COST: 

$111,837.50 


B RElKmURSABLE 


36 . NAME OF MANAGER <24 ch*ract»ril: 

30 . ORCANI^AItON: 

ksi 

33 . TELEPHONE NUMBER: 

3 - 

33 . OROAPUZATION: 

firflST, 


Mi 




} 4 . COMMENTS: 


Scientific /Engineering 





CD OVEHGUIOELINES 


‘ *-C 'orir. 3 S 60 in«v. July 1971 ) 


S. SlOJ^TUAE OP AUTHORIZED 7 UQUESTEH: 

H- 3rM.c 


BEFORE COMPI FTlf^ cno»* y^w-r- 


37 . DATE RECEIVED: 
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1.3 RELATED PROJECTS 

The Related Projects include the Timeline Resource Analysis 
Program (TRAP) and the CEC Lewis Progrcim. 
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2.0 


PROBLEM TASK DESCRIPTION 


The STREAM Program is a bookki-cpinq procjram which allows the 
user easy access to a table nl output. 

The user has the option to define a new table. After a table 
has been defined, this existing table can be revised or de- 
leted. One can also print existing tables with the option of 
printing one or all of the sheets dealing with a particular 
facility name, case number, and table number. Once the print- 
ing option has been selected, the user has the option to print 
more individual sheets and to print more tables with a different 
facility name, case and tabic number. 
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3.0 METHOD OF SOLUTION 


The STREAM Proqram is designt?il with pointers used to output 
the tables. These pointers are used with three different files. 
The names of these files are 14, 1", and 20. 


To add a new table, the user selects option one in the main 
menu. After this selection has been made, the user is asked 
to supply the facility name with an A8 format, the case num- 
ber and the table number both in II formats. Then, this infor- 
mation is used for the different files. File 14 contains: 


File 16 


NNAME 

- 

number of facilities 

ICOI.M 

- 

pointer of columns 

I CHAIN 

- 

chain of column pointers 

TNAME 

- 

facility name 

NPTR 

- 

counter of pointers 

TCASE 

- 

case name 

TTABLE 

- 

table number 

TSHEET 

- 

sheet number 

contains 

IPTR 

• 

• 

counter pointer to columns 

SYS NAM 

- 

system Icibel 

DRAWN 

- 

drawn by 
engineer's name 

ENGR 

- 

APPR 

- 

approved by 

DATE 

is 

current date 


of which drawn ENGR, APPR are optional to the output page. 


File 20 contains: 


COLNAM - 
COLDES - 
COLVAR - 
eXTR 
XTR 


column name or stream number 
strecun description 

actual numerical data for output tables 

component name and formula 

compound molecular weight and moles /hour 


To revise, the user first has to write the facility name, 
case and table number. The existence of the table is verified; 
then, the sheet number is input and verified. After that, 
the original data is located. The system data can be changed 
by choosing that option which results in the new item being 
keyed in. When this is completed, the entire record is writ- 
ten back to file 16 . Colximn data can then be changed in a 
likewise manner. To change moles/hour for the compounds, the 
entire column of data must be keyed in for each compound. 

After this process is completed, the information is written 
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back to file 20. The user is able to edit as much as he 
likes without going back to the main menu. 

To delete, it is the same proc-css of adding except in reverse. 
The user can delete an entire case, table, sheet and column. 
Once the user decides which tjne is to be deleted, then the 
respective pointers are updated. 

To output tables, the user must again input the facility name, 
case and table number to be used as pointers to sheet data. 

The user can output one sheet at this time ox all of the sheets 
if desired. If more than one sheet is desired, but not all, 
the user must again input the sheet number to be output. The 
user has the option to output more tables before returning to 
the main menu. 

One thing to keep in mind is that the pointers used start out 
from the largest category down to the smallest. In this case, 
it is the facility name, case number, table number, sheet 
number and finally, the column number or^name. 
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4.0 PROGRAM DESCRIPTION 


4.1 OPERATING ENVIRONMENT 

4.1.1 Hardware 

• The program was first written for the UNI VAC 1100-82. 


• Core Requirements 

The amount of core memory required for the program to run 
on the UNIVAC 1100-82 is 13853. 

• Magnetic Tapes 

On the UNIVAC 1100/82, the number of nine track magnetic 
tape units required is one. 

• Mass Storage Requirements for the assignment of the files: 

(a) STREAM is catalogued; 

0CAT,P CGS, F/64/TRK/128 

(b) files 14, 16, 20 are assigned: 

@CAT,P 14,F/2/TRK/4 

§CAT,P 16, F/l/POS/2 
@CAT,P 20, F/2/POS/4 
respectively. 

4.1.2 Software 

• Operating System - The host operating system will be a 

UNIVAC 1100/82 Executive, level 9R1. 


• The program is written in ASCII Fortran on the UNIVAC. 

• Demand, interactive is how the processing mode used 
to execute 

• Library Subroutines include: 

SYS$*MSFC$ . 

4.2 PROGRAM SPECIFICATIONS 

If the user wants to retrieve information already existing, 
all the user needs to do is to input the facility name, case 
number, table numoer, and sheet number and the correct sheets 
will be displayed. But if the sheet does not exist, the user 
will need to define new sheet data which require stream name, 
stream description, moles per hour for the different compounds, 
special compounds, and the different totals. 
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4.3 SUBROUTINES 


A list of all the subroutines and their main function are 
given below. 

1) CHECK - checks for a duplicate column name and if found 

will flag as an eiror. 

2) CNAME - user will input stream name, isolate multiplier 

and remove N, ( ,and) . 

3) COLUMN - write stream description and column data for 

compounds, special compounds, weight, tempera- 
ture, pressure PSIA, gas molecular weight, 
power in kilowatts and BTU per hour. 

4) CSHEET - changes sheet information which includes drawn 

by, engineer, approved by, and date. 

5) DEFINE - reads in sheet data, column data and stores 

the information on the file. 

6) DELETE - will delete entire facility, case, table, sheet 

or column data, iind will update all pointers. 

7) EDIT - user will select basic table, check existence 

of cable, and used as a driver to change sheet 
and column data. 

8) FILE - used to create a new file data to create first 

records, to adjust multiplier column, to write 
new column data and to upi^te the chain of colum pointers 

9) INIT - defines files 14, 16, 20. 

10) MAIN - main driver of program 

11) MENU - main menu of program to either define new table, 

revise existing table, delete existing table 
or print selected table. 

12) OPDATA - used if user wishes to input drawn by, the 

engineer's name or approved by. 

13) OUTPUT - will display all of the related output in 

table form. 

14) PSELCT - user will determine which table, sheets to be 

output; an option will enable him to print more 
sheets and tables. 
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15) SELECT - user will input facility name, case and table 

number . 

16) SHEET - user will input sheet number and system label. 

17) SHTNUM - user writes the number sheets (1-16) to be 

printed. 
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5.0 OPERATING INSTRUCTIONS 


5.1 DECK SETUP 

This program was designed to run interactively. Here are some 
of the commands chat make it easier for the user. 

• to copy program from tape to file 
@RUN . . . 

@ASG,TF PUR., U9S , tape number 
@COPY,G PUR.,TPF$. 

@ADD,L BOOT 

After this sequence, the user is able to execute the program. 
BOOT will catalog file CGS,14, 16, 20, will assign them to 
the user's run and will copy information from tape to file. 

• to get on once files are copied from tape 

@ADD,L GETON 

will assign files to user's run once they are cataloged. 

• to make hard-copy print-out of program 

@ADD , L COPY 

• to remap 
@ADD , L MAP 

will pack, prep and remap 

• to make a new tape with new information 

0ADD,L UPDATE 

will assign a new tape, copy information to tape, and 
will give you a new tape number. 

• to execute program 

0XQT XQT 
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5.1.1 Input 




5. 1.1.1 Magnetic Tapes 
For file 14: 


NNAME is dimensioned (1) 
ICOLM is dimensioned (1) 
ICHAIN is dimensioned (1) 
TNAME is dimensioned (2,4) 

For fxle 16, the format is: 

IPTR is dimensioned (9,2) 
SYSNAM is dimensioned (20A4) 
DRAWN is dimensioned (4A4) 


NPTR is dimensioned (4) 
TCASE is dimensioned (16) 
TTABLE is dimensioned (32) 
TSHEET is dimensioned U6,32) 


ENGR is dimensioned (4A4) 
APPR is dimensioned (4A4) 
DATE is dimensioned (2A4) 


For file 20, the format is: 


COLNAM is dimensioned 
COLDES is dimensioned 
COLVAR is dimensioned 
eXTR is dimensioned 
XTR is dimensioned 


(2.9) 
(3,9,4) 

(36.9) 

(6.3.9) 

(2.3.9) 


The assigned tape is called STREAM and was made with a TF 
(labeled tape) option on the assign card. The Tape Assign 
Card is as follows: 


@ASG,TF STREAM, U9S,SAVE04. . . CGS STREAM Table 

5.1. 1.2 File Requirements 

The file set-up requirements are: 

1) for file 14, the mass storage requirement is one record 
with a maximum length of 575 characters. 

2) for file 16, there are 512 records, each with a maximum 
length of 52 characters . 

3) For file 20, there are 5120 records, each with a 
maximum length of 74 characters. 

5. 1.1. 3 Other 

For all the input to be given by the user is explained in 

the reference test case 


5. 1.1. 4 Sample Control Runstream 
See the following page. 
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original page is 

OF POOR QUALITY 


TO EXECUTE PROGRAM, 


^ ,Utt.»t 444 


M/M/ll !• 1S.4C 

tor 


•cjrr c«s.r/»4/Ti)Ky’i2t 


•C«T.r 14 .r/ 2 /TMC ^4 

KAvV 


•CAT.P lC.F/l/POS /2 

KAOV 


JCPT.P 2 «.r/ 2 /P 0$/4 
RDIDV 


•SC. A COS 
KADV 


•ASG.A 14 
NCAOV 


•ASC.A IS 
■CAOV 


•ASG.A M 
NCASV 


•corv Trrs .ccs 

"*s sf.s"“ 


•cprv.ru* .14 
tor CNcouNTcaco o« xhtt 


•corv.o rur .is 
icvioi»iNmtis( 


tor CNCOUNTCNCO or IHTUT T<»f 


•corv.c ru* 

•CVIOWXNtSi 


II > coriu ON Ol/ 14 /ti AT SS'SU* 


limes UHDEnLINE-: ir.-DICATF. INPUT FROM USER, 


twtliuwT IT tmemm 


g« W. .CO. 

>mmr k qt 


5.1.2 O^L ♦ 

All. of th'‘ output c<jnsi.st.s o' or<> ouLpiil p.un'. 'J'his i ■; 

all dofjoridt.'iil on t.ho facility n.inw*, cmsc> luinio, .iit<l Ltible cas(? 
that tho use-f* 

5. 1.2.1 Macjiiotic Ti«pos 

If tJic user makes chan jos .irui wants to retain I la chanfio, ho 
can make a new tape by assl<.jriinq a nine t r<u:k tap'o anci copyinq 
tho files to this tape*. 

5. 1.2. 2 Sample Output 

(See attached Output paqes) . 

The number of Output paqets will depend on how many the user 
desires. After each page is printed, a pause statement will 
appear and will qivo the u.ne? a chance to look at tho Output 
or to make a hard copy before ho continues. 

5 . 1 . 2 . i Ot hoi 

The ouL{nil is doin'* infci.ict i\'**ly with a ‘I'l ;KTI\’ON 1 X '1000 si r if;, 
terminal. Aftci' I lu' lu'.ulinq;. a if |»i inti'd, a list of com[K)neii I. 
with their mo.locular woii)ld and abbiov i a ( i on:; are listo<l. 

These components are then li:: ic*d with the number of these 
components that are needeil to make up the pi. ocess listed in 
the STR12\M description. 


OHlOLNAi. PAGE lb 


QCOtMC C WWtHMU tMCC rtXQHT CCNTCR 
NAM NUNTMXLLI. O U HAM 

COAL OAfiriCATION TAMC TtAA 
COAL OASiriCATION mifAA ft UTXLXTV TA»U 

NODUU tVtrCR MOOUCT «A« UMQC 

•ntCAN NURKR R09 

»T«CAA DCfCSIRTION MOOUCT 


CONAOICMT t ■ I 

mm roANULA nol>wt 


HVBOOQCN 

HA 

1 M 

10041M0 

CAAMN NONOXXK 

CO 

tt.Ol 

10WB040S 

CAAMN eiOXIK 

COS 

44.01 

atoz’ 

AETMOC 

CMA 

If 04 

000M401 

NITAOQF't 

Nl 

n.oi 

M1M403 

OXTCDi 

oa 

M.M 


AMON 

AA 

40. M 

49BM403 

NVOAOQCN BULTIK 

HM 

34. ft 

17000-01 

CAAMNVL SULflK 

CM 

00 Ot 

99100-00 

CAABON OISULFXK 

CM 

TO |4 


fUirUA OXOXXK 

SOS 

04 to 



NH3 

17 


AVBAOQCN CVANIOC 

HCN 

07 03 


MVWOGCN CHLOAIK 

MCL 

M 40 


NITAOUS OXXK 

NO 

30.01 


CNlOAlNe 

CL 

3S 40 


fTMVl£Nt 

C8M4 

Of .00 


CTNWC 

C8HC 

30 07 


PAOPVUNE 

C3NC 

40 00 



C3Ht 

44 09 


MLTUA 

f 

30 07 



TOTAL 

UTDI 

TOTAL 

OAV 

HOO 

wrr 

It 00 

II 

U 

TOTAL 

COAL 

AON 

CAKOON 

MS/LXOUID 


0904940 


TOTAL MLIM 

TOTAL rnSAN tW 4 0 * M 


TCMCtATlM.DCO r .I MMU I 

MEMUAK.PtIA M47Mn 

MA^llO AOU UCIQKT.LB/U-AOl im 

AOId.lCW (BTU^> 


PAUM MOM 


> 


MCILITV TtMCO 
COM NO 3 


•V 



I 

I 

I 


L 


SAMPLE ()l TPUT 


NASA 


CCOMC C WAWIIAU. 5AACC rilOKT CCHTC* 
MWITSWILU. 

COAL OASmCATlON TASK TCAfI 
COAL GASIFICATION ST^AA I UTILITV TAiU 

NOOULC svsrtA 

smcAA rottcB , 

S'RCAA XSCSIATION COAL 


COAAOHCNTS 1 

WMC r0«ALlLA N0L-«T 


HVDOOGCN 

M2 

2 

02 

CAAOON NONOX I DC 

CO 

OS 

Oi 

CAAOON DIOXIDC 

C02 

44 

0! 

AiTHANC 

CH4 

16 

04 

NITOOGCN 

NO 

20 

01 

OXVGCN 

02 

32 

00 

AACON 

AR 

40 

00 

MVOAOGCN SULFIK 

H2S 

34 

OS 

CAAOONVL SOLflDC 

COS 

60 

00 

CARSON DISULFIDC 

CS2 

78 

14 

SULFUR DIOXIDC 

S02 

64 

06 

AAAONIA 

NH3 

17 

03 

MVDAOGCN CVANIDC 

MCN 

27 

03 

MVDROGCN chloridc 

HCL 

36 

46 

NITROUS OxIDC 

NO 

30 

01 

CMLORINC 

CL 

35 

4S 

CTHTlCr^ 

C2N4 

20 

OS 

CThanC 

C2H6 

30 

07 

RROAVUNC 

C3H6 

42 

00 

RRORAMC 

C3MS 

44 

09 

SULFUR 

S 

30 

07 


total DRV 



UATO 

H20 

It 00 


total uet 
total GAS/LIOUID 

COM. 

ASM 

CAMON 

TOTAL SOLIDS 

Ta»AL S'HKAr 


tiaso *«4 

3 MS»»«S 

H —S'SS 


I W I ss 
4 atM*«s 




TCtrCAATuAC.OCG f 3S*00*M i »i!! !? 

MICSSOAC.ASIA H 

OM/LIG AOtt WClOMT,Li'U-MOL i**** 

AOUCA.ICU (tTU/MR> 


AAUSC ••••• > 


rACILXTV TDIACO OAMM tV 

CAtC NO 1 CNGA 

AAAAOUCD 

COAL MKAAAAT ION 8VSTtN<D 

MAS LM SOS LOT CW* 

lT LA 5T NO AO«CO 

STtAA STIAA V«NT 

CONDCN- 

SATt _ ....... 

■ LO-NOLCS/nO t m M t t t t 


1SM7*0S 10M740S 

tMoo^oo noM^oa 


OATt OT/’Ot^ 

o«rr 1 or to 

TAOLC NO 1 


LOO t- 
COAL 
SLUMTV 


3 



IS7SS«06 l€75S4tS 4444A4A4 

ar «30404 rrs 30*04 _ ^ 

.•Kv: . rrr. fyvvj . . . . 

«•»•••« !S! 5 .J« 


tU33*«S 

40730«OS 40730^ 4«OSO*OS 4*0S0*0S tl33>^ 

00000403 I6000«03 1 3600*03 13600«03 

MTOotoO M^ 40 | 

10000400 10000*00 00000*0« 00000*00 


FOR 

FACJl.lTY NAMK - TK: 
FASH NIIMBF.K - < 

TAIU.F, NUMIUIR - 1 
SIIKF.TB - Al.: 


-ss!KL 5 *“Miasr 

tcu og?t,t:siyT.icVr 5 TiK?v T..U 


noouu SVSTC" 
STIICA" NunKR 
>m<w xscBimoK 


CO"**Of«HTS 

foanuLA 


aot-«T 


Z99 

AIR 




HSS 

HR 

STCAH 


fAClLlty 
CMC NO 


TCWkCO 

3 


•V 


RRRNOMCC 


AIR RCRRRATION SvSTCNJS) 
CM CK 

MR COOLING CMUN6 

CTCAN «ATIR HATCR 

CONMN- 

t I g a t t t*t*« If L»-"OLfS 


CB4 

UASTC 

na 


/HR t t 


580 

MX 




ORTI 

CHcrr 

TRfU 


R 7 / 3»/«0 

• or !• 

NO. t 





I 


HVDROCCH 
CARCOH nONOXIM 
CRRtOH OIOXIK 
RCTmAhC 
NITROGCr* 

OXVCCH 

ARCOH 

hvdrog£'< Sulfide 
CRRCOhvl sulfide 
carcoh disulfide 

SULFUR DIOXIK 
AfWOHiA 

nvdroceh CVAMIDE 
HyDROcEN Chloride 

NITROUS OXIDE 

CHLORI'^E 

CTmvLEhC 

CThahE 

RR0RVLE»« 

RRORAHE 

SULFUR 


H2 

2 02 


CO 

11 01 


COl 

44 01 


CM4 

IS 04 


N2 

29 01 

47033*05 

02 

32 00 

I25M*05 

AR 

40 00 

S5000*1S 

HIS 

34 01 


COS 

SO 01 


CSl 

7S 14 


S02 

54 06 


NM3 

17 03 


HCH 

27 03 


MCL 

35 46 


NO 

30 01 


CL 

35 45 


C1H4 

a 05 


C2H6 

30 07 


C3H6 

42 09 


C3H1 

44 09 


S 

32 07 



302t0AtS 

7S300M3 

270R0«0Z 


tS«T*«S 


IITCSMS 

53300 M 3 


total DRV 

water M 20 

TOTAL WET 


total GAS/LIOuID 

COAL 

ASH 

CARiON 

TOTAL SOLIDS 

total strean 


11.02 


« 


TENRCRATURC.DCC F 

CAS*lVo^A^ WCIOHrr.LC/LO-NOL 
ROWCR.KU t»TU/MR> 


60190«0S 

601M«0S 
t t t t * 
17430*0? 


3 M 20 T 0 S 
38O2t«0S 
« t S • > t 
S7S33T0S 


‘*iOtO I OE fOTOO ’ QT ZMOO'OT 

. i*nr. * 5 T^ 


a a 


S7S3V0S S3l00*0i 53100*00 


3tOSO*OS 

.31000*05 
a a a a a a 
t7310*M 


17430*07 .57S33*M 57033*00 53100*01 


10000*01 


10000*04 

ll«S7*04 

10000*02 


10100*03 

10000*01 

11000*02 


10000*02 

9«'700*02 

11000*02 


53100*00 

10300*03 

11000*01 


17310*M 

10000*01 

11700*02 

11110*01 


167SC*0S 11375*05 


16750*05 
a a a a a 
46950*0C 


a 


113r75*05 

a a a a 


a a a a a 


3905O*0S 


46950*00 39050*00 


1 3 500*03 

21700*01 

21020*01 


.11100*03 

11470*03 

31300*02 


RAUSC 00000 > 


NASA 


U1 

I 

O) 


OlOmtt C fMRSMALL SAACf rtlOHT CFNTCT 
^TSWILLE, ALAtAHA 

COAL OASiriCATION TAM TCaa 

COAL CASiriCATlON STRCAN | ITTILITv TA0L£ 


"ODOL£ 

. Nunnn 

jTACaa OCSCAIATION 


LM 1- 3 
COAL 

SLUAKy 


S99 

oa 


NANC 


C<MAONCNTS 

rOIWULA 


NOL-UT 


HVOAOCCN 

CAMON NOHOXIOE 

CAAtON dioxide 

nCTHArC 

NITROCCN 

OXVCfN 

AffOON 

MVOAOCCn SULTIDC 
CAADON'.L SOLE I DC 
CAADON DISULFIDE 
SULFUR OIOXIDC 
AmONlH 

HyOROCEN CV<U1I0E 
**yO»OGEN CWLORIOI 
NITROUS OXIDE 
CHLORINE 
ETMVLEnE 
ethane 

AAORvLENE 

rwo a am e 

sulfur 


H? 

CO 

coe 

CH4 

N2 

oa 

AR 

Has 

Cts 

csa 

soa 

NH3 

MCN 

HCL 

NO 

CL 

caH4 

caHc 

C3Hb 

C3H» 

S 


a »a 

as SI 

44 01 
16 #4 

as #1 

3a M 


34 M 
6« *8 
76 14 
64 66 
17 S3 
87 S3 
36 46 

35 SI 
35 «5 

as S6 

3S S7 


N« WW 

44 S9 

38 S7 


■ s ssssis e 

117S6«S5 

533SS«S3 


o«amn tv 

CASE NO 3 EHQR 

aarroucd 


Ht7 

HR 

srw 


CASIFICATION 

N93 

sru 

S^D 


svstea (AI 

nts 

MR 

steaa 


J97 

SLAQ 

OUCHCH 

uatr 


LI-AOLES/ 


8ATI 

TAtU NO 


S7^31>^ 
3 OF IS 
1 


R99 

SLA6 


NN 1- 
MAU 
SAS 


3 


37MS4S4 

E ittSiSl 

iat4SvS4 

8MSS4S1 

1MSS4S3 

17tSS«S3 

1C1SS4S3 

MSSS»S1 


sssss's: 


total ORV 
UATER 

total UET 


H80 


18 sa 


^^^TOTAL CAS/LIOUIO 

ASH 

CARSON 

total solids 
total streah 





1837S«S6 






4444S4S4 
4444STS4 
X « t t t 

1837S«S6 

* X t * « t 

37SSS«SS 
37SSS*SS 
X X a ■ • 

1S14*«S4 

1S14STS4 

c ft 1 ft e 

3634S*SS 

3634S«SS 

•111S4S4 

S111STS4 

8CS4S«S4 

acs4s«s4 

SSSIStSS 

13333»S6 

sstss^ss 

SS13S«S6 

• ■ L V 9 

a7aSSrS6 

^ H R a 
*S4SS«S6 

X X a a a a 
146SS«S6 

a a a a a 
4S31I*SS 

133334M 

813334SS 

3WSS«A6 

SS13S«SS 

a7a$s«ss 

6S4S6*S6 

14«SS«S6 

4831 USS 
8C6aS«SS 

•SSSSTS3 

9147S4S3 

ttlSS*S3 

S147S»S3 

383SS«Sa 

assss«s3 

aS497«S4 

issss«sa 

ssass«s3 

14487«S4 

1SSSS*S8 

SB8SS»S3 

14487'»S4 

issss«sa 

stsssisa 

774TS4S3 

ltSSS*S8 

1S3SS«S3 

7S47S4S3 


11S84*«6 

S471S^ 
1699S«S5 
t S t « 
36S81«S6 




4C84S«S4 

ism»s4 

S844R«S4 

3684S*S6 

4SSSS«S3 

7147S4S3 

ts«M*sa 


RAUSE sssss > 



NMSA 


QCOMC C nMttMAU SMCC ruoHr CCWTt* 
HUHTtUlLU. AL«M«M 
COAL 6MIFICAT10N TAM TM 
COAL GASiriCATION STMAA t UtlLlTV TABLC 


rACZLlTV TCXACO DHAUM tv 

CAtC HO 3 CNGt 

A^AtOvCO 


•CCT 

TAtu no 


rr^i/M 
4 or to 
1 


HOOULC SVSTCH 
STOCAH rOVCt 

STKAfi ocscoirriOH 


CAS cUAHur mm coolino tvonn (n> 

nos 1- 3 JOS HM NOS 

•AH AAOCCOS ASH MU 

CAS UATCt AHO Om* 

WATt* 


NAHC 


COHAOrCNTS 

rOAHULA 


HOL-HT 


Lt-AOLCt^Ht sstsatttttttttsttt 


MVOftOGCH 

H2 

s 

08 

37S00404 

33700403 

.10043406 


CAOtOH nONOXlDC 

CO 

SB 

01 

SIQOB 04 

68000403 

1603S40S 


CARSON OIOXIDC 

COS 

44 

01 

10840404 

300S0404 

83760404 


HCThAHC 

CH4 

1C 

04 

80000401 


S0000401 


HITROOCn 

NS 

SB 

01 

10000403 

.90000 01 

89100403 


OXVCCN 

OS 

38 

00 





ARGON 

AR 

40 

00 

17000403 


40000403 


HVDROCCN SULFIOC 

MSS 

34 

08 

IS100403 

.30000403 

9S00040S 


carbonyl SULFIOC 

COS 

so 

08 

80000401 

3 

1 

•0 

1400040S 

4'S' C 

CARBON DZ SULFIDE 

CSS 

7S 

14 





SULFkjR DIOXIDE 

SOS 

S4 

OS 





ANHOMA 

HH3 

17 

03 





MYDROGEl CVANIDE 

HCN 

87 

03 





MVDROCEN CHLORIDE 

MCL 

3S 

4S 

60000401 

ISOOO OS 



HITROUi OxIDC 

NO 

30 

01 





chlorine 

CL 

3S 

46 




•C’ ^ 

ctmvlene 

CSN4 

SB 

OS 





ethane 

CSHS 

30 

07 




iT AT 

RROPVLENE 

C3HC 

48 

00 





•ROPANE 

C3HS 

44 

09 





SULFUR 

s 

38 

07 














total DRV 

HATER H80 

total uct 

10.08 

11S8440S 

S47104O4 

1S09S406 

10030407 

10830407 

.44100404 

100004B7 

80030487 

.30100406 

44000408 

30800406 

total QAS/LiauID 

COAL 


36S8140S 

3S730400 

3S0S04B8 

It L 1 ! 

C#S9#«t€ 

ASH 

CARBON 

total solids 

total strean 


4S8 40404 

10800404 

68440404 

3S84S406 

36730408 

1307040S 

40S004B4 

107304K 

30000408 

60590406 

TENrCRATuRE.DEQ F 
PRESSURE. RSI A 

GASvLIO HOLE jCXCMT.LB/LB-AOL 
POUER.Kh (BTu/HR) 

40000*03 

71470403 

oooooioa 

00000400 

70470403 

18000408 

10000403 

SS4704B3 

10000408 

10000403 

SS470403 

S010040S 


•AUSC eOAOO > 



NA5A 


QCOMC C MMNALL IMCC rLlQMT CENTC* 

HUNTSUILU. ALMMM 
CO«L C*5iriC«TtOH TO»K Tttm 
CO^ C*S1P1C*^I0« ST*tM1 i UTILITV TMU 


ruciLJTv TEXACO DMUM IV 

CA«E NO 3 CHM 

AA M O^CP 


•ATt •7^31/1# 
MCCT S or il 
T«tU NO 1 


nOOULt SvSTt" POOCCS* SOLIDS TOCATNCht io> 

STACM1 Nuntc* n99 nm rtc rot Ml OM 007 oor 

STRCM* oescvirrioN slag asm sour sour clarified asm/ aroccss acid 

AND UATtR WATER WATER SLAO WATER GAS 

MATER CONDCN- COMDEN- SLURRv 

SATE SATE 

CONRONCNTS atstssttatsissFit* li-aoles/hr tatitaaaaass 


NANE FORMULA nOL-WT 


HVDROCCN 

H2 

2 12 


337SS4S3 


CARION NONOXIDE 

CO 

21 11 


SMSS«S3 


CARIOM DIOXIDE 

C02 

44 SI 


3S0SS4S4 


NEThanc 

CM4 

18 M 




NITROGEN 

M2 

2t 11 


SSSSS»S1 


OXVCEN 

02 

32 M 




ARGON 

AR 

4# M 


3SSM4S2 


MVOROGEN SOLE IDE 

H2S 

34 IS 


3MSS*S3 


CARION'/L SULEIDE 

COS 

SI M 


1SMS*S2 


CARION DISULEIDE 

C$2 

7S 14 




SULEUR DIOXIDE 

S02 

S4 *S 




ANNONIA 

HH3 

17 13 




HYDROGEN C VAN IDE 

HCN 

27 S3 




HYDROGEN CHLORIDE 

HCL 

38 48 


1SSSI*S2 


NITROUS OXIDE 

NO 

3# 11 




CHLORINE 

CL 

3S 4S 




EThvLEnE 

C2H4 

21 IS 




ethane 

C2h6 

31 17 




RROPvLEne 

C3HS 

42 SO 




RROPANE 

C3H8 

44 SO 




SULEuR 

S 

32 S7 




methanol 

CH30H 

32 SS 



143M4S2 

total DRV 




441M4S4 

143M«S2 

WATER 

H20 

11 S2 

2SI4S««4 

1909S4S7 

sasMise 

total wet 



2SS4S«S4 

2SS3#«S7 

SMM*S2 



a 

a a a a a 


a a a a a 

total OAS/LIGOID 


4131 1*«S 

38SCO«SS 

124M*S4 

COAL 






ASH 




13070^ 


CARION 




4tiss*s4 


total solids 



4131 1«SS 

1I73S««S 


TOTAL STREAM 



sssss^ss 

124|S»S4 

TEMRERATwRE . DEC F 



1S3SS4S3 

ISMS ' S3 

140M«S3 

PRESSURE. RSI A 



7S47S4S3 

M47S*S3 

147M«S2 

OAS/IIG MOU WEIGHT. LI/LI-MOL 


ltMS*S2 

I31M»S2 


ROWER. KW <|Tu/KR) 


3170S»S3 

S«OS«S3 

3 SI«S»»< 

SMOS^Sl 

3S0ss*se 

3nOO»S3 

100SS«S2 


1SMS«S2 


143SO*S2 


S82SS«S3 
S82SS«S3 
a a LIS 
1S116*«S 

20SM*S2 

1MSS««7 

10SSS«S7 

/HR a a 
3S70S*SI 

27S3S«^S4 

2713*^4 

a a a a a 
SS1SS«M 

1121S«SS 

1121S4SS 

a a a a a a 
2S1TS*S8 

44S3S««4 

3S4M«S3 

47f7S«S4 

172SS«SS 



87S4S*SS 



1S118*SS 

3670S«SI 

87S4S*SS 

11714*S6 

2S17S*S8 

172SS«SS 

1MM«S3 

147S*»Se 

1ISAS*»2 

1MM«S3 

147M»S2 

tSSM*S2 

1MM*S3 

t47M*S2 

189SS*S2 

1SSM»S3 

147M*S2 

1SSS*«A2 

1MMyS3 

147M4S2 

3S7M*S2 


RAUSE 


> 



QCOAQC C MMNAU tMCC rLIQMT CCNTCT 

•IMA •vrrswilu. 

COA'. CASiriCATtOM TA«C TCAH 


COAL QA9' 

ICATION 

STRCAA 

2 utility 

TAOU 

•toniu svrrtA 




STRCAA 1UMCA 


Pi99 

JOS 

STRCAA 0C«' 

RIRTION 


RAW 

COOL I AO 




GA6 

WATER 

»;<>T«*OICAT« 

■ 



1 

i 

AOL-UT 



MVDAOCCN 

H2 

2 02 

1004340S 


CAAMA nONOMIK 

CO 

2t 01 

1SS3S406 


CAAMN OlOXIK 

C02 

44 01 

23700*04 


ACThaM 

CH4 

16 04 

60000*01 


NITAOCCN 

A2 

2t.01 

29100»03 


OXVCCh 

02 

32 00 



AACOA 

AA 

40 00 

49900*03 


HVDAOaA SULFIDC 

H2S 

34 02 

95000 1 02 


CAA90AVL SUiriDC 

COS 

SO OS 

14000*02 


CAAtOA DISULFIDE 

C$2 

76 14 



SULFUR DIOXIDE 

S02 

64 06 



AAAOAIA 

NH3 

17 03 



NVDAOCCA CVAAIDE 

HCA 

27 S3 



hvdaocca chloride 

HCl 

36 46 



AITROUS OXIDE 

HO 

30 01 



CHLORINE 

CL 

35 4$ 



ethylene 

C2H4 

2S OS 



ethane 

C2HS 

30 07 



RROAVLEf« 

C3H6 

42 OS 



RAORANE 

C3HS 

44 OS 



SULFUR 

S 

32 27 



AETHAAOL 

CH30H 

32 00 



total DRV 



30160*06 


UATEA 

H20 

It 02 

44000*02 

3262S*00 

total wet 



30200*06 

36026*00 

total CM/LIOUID 


60690*06 

66930*07 

COAL 





ASH 





CARIOA 





total solids 





TOTAL STREAA 


.20690*06 

06930*07 

TCAREAATURE . DEO f 



.10000*03 

00000*02 

RAESSURE.PS I A 



.00470*03 

.99700*02 

QAS/LIO AOU WEIGHT. Ll/Ll 

-AOL 

20100*02 

. 10000*02 


AOVCA.KU (»ru/MA) 


AAUK ••••• > 



143MM2 14MA^ 


143MM2 23M«»«3 

JMW»M < HM i>e tSSM«M WM tl 

3MSMS 143M«M M— i> e 23CM««3 ■ItWHI tnt*M4 

LIS/HR ttstttststttatatiatttt 

•S»3*««7 4S«M««3 ie4M««4 S44CA^ .ICMA^M IMMMS 


CS»3A*«7 

lMM<-t3 

X4"m*4t 

I MM 12 


4 S «M->R3 

m—*u 

t«47t**3 

3MM*»2 


.124«A*«4 

149M»«3 

t47M««e 

23t«#4M 


944$«««4 

1MAA»«3 

.147M»«C 

39CM*«2 


1MM4M 

e9WA«*3 
. M7M492 


I MM iM 

•47M4M 

1MM*M 


C4«3A*A4 


NASA 


QCOMC C. RAMHALL SRACt rtlONT CCHTCR 
NWtTSUlLU. 

COAl M4IFICATION TASK TtAA 
COAC OASiriCATION STRCAA A UTXLITV TASU 


Noouu svsrtA 
STACAN NURKA 
STACAR KSCAIPTIOA 


acid ms ACNOWAL SVSTKA IA) 

A 9 B 

AAOOUCT 

AAS 


rACILlTV nxACO 
CAti NO 3 

COHT. 


DAAUN IV 

CNOA 

AAAAOVCD 


MTK fT/ll/tt 

•«n T or X# 

TAMX NO 1 


C0NA0»CNT8 

A 


name foanula 

NOL-MT 


HVDAOCEN 

M2 

2.D2 

1DS41*DS 

CAAION NQNOXIK 

CC 

SS D1 

issn>Ds 

CARICN DIOXIDE 

C02 

44 tl 

22S9D«D4 

AETHAME 

CH4 

IS D4 

ADDDD^Dl 

NITAOQEN 

N2 

2S D1 

20tDD*D3 

OXVGEN 

02 

32 DO 


AACON 

AA 

4D DA 

49SDD«D3 

mvdaocen sulfide 

H2S 

34 Dl 

ITSDD-Dl 

CAADONVU SULFIDE 

CDS 

•D Dt 

9912D-D2 

CAAION DISULFIDE 

CS2 

78 14 


StJ'.FUA DIOXIDE 

S02 

S4 DS 


ANNONIA 

NH3 

17 D3 


HVDAOCEN CVANIDE 

mCn 

27 D3 


HVDAOGCN CHLOAIDE 

HCL 

36 4S 


nitaous oxide 

NO 

3D Dl 


CHLOAINE 

CL 

3S 4S 


ETHVUNE 

C2m* 

2D DS 


ethane 

C2HC 

3D D7 


AAOrvUNE 

C3HS 

42 D9 


AAOPANE 

C3MS 

44 DS 


SULFin 

S 

32 D-> 



total DAV 


29924»D5 

UATCA m20 

11 D2 

299t4«DS 
t t S 1 s 

total met 


TOTAL GAS/LIOUID 


S9S4»»D6 

COAL 

ASM 

CAASON 

TOTAL SOLIDS 

TOTAL STAEAN 


S9S49*DS 

TCATCAATUAE . DEO F 


1DDAD4D3 

AAESSUAE.rSIA 


M47DTD3 

OAS/LIO NOU HEIQHT.LD^LD-NOL 

199DDTD2 


AOICA.KU (iru/HA) 


AAUSe AAAAA > 



OCODOC e rnMNALL S^ACt rLIQHT CCHTt* 

l«A*A HUNT«U1LU. MAtMM 

COAL OASirtCATIOM TASK TCAA 
COAL GASIFICATION STHCAM G UTIUTV TASLf 


AOOUU SVSTCN 
STVAN Nunic* 
STIlfAn KSCAIATIOm 


AMODUCr GAC USACC 
ASS 

ASOOOCT 

GAS 


rACILXTV TOMCO SWUM SV 

CAM NO 3 tNW 

A^SSOGO 


BMTC 

tamji 


CONAONCNTS J 

HANf rOSnULA AOL-VT 


ii-noLCS/NS tttttssitttt 


I 


HVISOGEN 

M2 

2 SI 

1S941«SS 

CASSON rONOXIDE 

CO 

2S St 

•ISStt^SS 

CAAtON DIOXIDE 

C02 

44 St 

2IS9S4S4 

NE thane 

CM4 

IS S4 

sssssm 

NITSOGCN 

M2 

IS St 

291SS4S3 

OXYGEN 

02 

32 AS 


ASGON 

AS 

4S SS 

4D0SS»S3 

MYDSOCEN SULFIDE 

H2S 

34 SS 

17SSS-S1 

CAADOHVL SULFIDE 

CSS 

SS SS 

M12S-S2 

CAStON DISULFIDE 

CS2 

7S 14 


SULFUA DIOXIDE 

S02 

S4 SS 


AISIONIA 

MH3 

IT S3 


NVOROCEN CVANIDC 

HCN 

27 S3 


NVDSOCEn CMLOAIDE 

HCL 

3S 4C 


nitsoos oxide 

NO 

3S SI 


CMLOfilNC 

CL 

3S 4$ 


ETHVLENE 

C2H4 

21 SS 


ctnane 

C2H6 

3S ST 


rSOPVLENE 

C3H6 

42 se 


SROrANE 

C3HS 

44 so 


SULFUA 

S 

32 ST 



total osv 

UATeS H20 

total get 

total GAS/LIOUID 

COAL 

ASH 

CAAtON 

total solids 

TOTAL STRCAN 


ess24*ss 

It #2 

asK4«ss 


SSS49TM 


sos4g4ss 


LIS/ 


TgyCSATuAE.XO F .lSSS»iS3 

MCSSURC.ASIA M47S4S3 

OAS/Lie NOLE UCICMT.LI/LI-HOL tSSS U S t 

SOWEA.rw «STVI/mA) 


ST/Jl/SS 

t or IS 

NO 1 




aause sstss > 



NASA 


<J1 

I 


CCO06C C NAASHALL SAACC FLIOmT CCHTOI 

nunTSVILLC. ALAMAA 

COAC CASI^ICATION TASK TFAfI 
».OAL CASincATION STACAN i UTILITV TAALE 


NOOUU SVSTCN 

staeaa nuasca 
• iTACAA OeSCAIPTION 


PM 

ACID 

SAS 


094 

ACID 

CAf 


COAPONCNTS 

naac roAAuLA Aoi-vr 


HVOAOCCN 
CAADON AOAOXIDt 
CAADON DIOXIDE 
AETNANC 
AITAOCEn 
OXYGEN 

NTOAOCEn SULFIDE 

CAAiONvL Sulfide 
CAADON disulfide 

•OUUA DIOXIDE 
AfAIONiA 

MVOAOCEN cyanide 
HVOAOCEN CmlOAIDE 

nitaous oxide 

CMLOAInE 

ethylene 

ethane 

FAOAvLEne 

paopane 

SUiFuA 


He 

CO 

C02 

CH 4 

N2 

02 

AA 

H2S 

cos 

CS2 

S02 

NH3 

MCN 

MCI 

NC 

Cl 

C 2 H 4 

C2H6 

C3H6 

C3NI 

S 


2 02 

29 01 

44 01 
1C 04 


n 01 

32 00 


8 0 000 1 01 
■ 0000 1 01 

1170O«03 


34 Ot 
CO OC 

7C 14 
C4 Ofi 
17 03 
27 03 

36 46 
30 01 

35 45 

2< OS 
30 07 

42 09 
44 09 

32 07 


9S00A»O2 

14000«02 


3370A»03 

S2 A 00I03 

30M4H04 


36000«02 

3t900*03 

10000«02 


facility TEXACO 
CAM HO 3 


OAAUN 2V 
ENGA 

aapaoued 


•UL^ AECOMAV AND TAIL OAS TAEATNENT 


MM 

LP 

STEAM 


T94 
LP 

STEAN 

CONDEN- 

SATE 

L i 


JM 

COOLING 

UATEA 


IT) 
T93 
COOLING 
UATEA 


- " 0 L E S 


Ht9 

LP 

■FU 


DATE 

•MET 

▼A9U 


TW 

LP 

STEAA 


total day 

UATEA 

total wet 


H20 


It 02 


total GAS/LIOUID 

COAL 

ASM 

CAADON 

total solids 
total staean 


teapeaatuae.deg f 
pnessuae.psia 

pouea.ku (dtu^A) 


2360t«03 

236004«3 
« « t > t 
94460404 


t 


44A30«04 

304004D3 

< 70 ? 0*04 

t t t t I 

1726040S 


94460404 17260405 


I0000403 

I 47 M 402 

3M00402 


10000403 

147M402 

367M402 


loi!!:!? immms 

20300403 20 3 00103 1S20S405 

• • • • • •• LDS/HA to 

36400404 36400404 27S124M 


IS 20 S 405 
1S20S4O5 
* t a s t 

27512406 


S6 320404 
56320404 

a a a a a 

10137406 


S4070404 

54070404 

a a a a a : 

97317405 


36400404 

29000403 

64700402 

10000402 


36400404 

29000403 

64700402 

10000402 


27512406 

0OMO4O2 

■ M 7 M 402 
100M402 


27512406 

120M403 

147M402 

10000402 


10137*06 

2M00403 

159704 A 3 

100004 G 2 


. 973174 D 5 

29000403 

64700402 

10000402 


07 /^ 1^90 

• or to 

HO 1 


van 

AlA 


15960404 

42000403 

19000402 


20430404 

26000*02 

206M404 

a a a a 

5M29*05 


59629*05 

60000*02 

10700*02 

20000402 


PAUSE 00000 > 


OCO«gC C fMMHAU «PACt rtlOMT CCHTt» 
HUNTfUlLLC. 

ro*L OASinc«TtOH $t»cw^ i utilitv 


^•CILITV rtXACO 
CAM NO 3 


•WDuix >.■;*£" 

SrOCAN NUAtC* 
STOtAA DCSCAIAtxon 


KNOIt 


CONAONENTS 

roonuLA 


HVOffOCCN 

CAROO^ AONOMIK' 

CAfltoN oroxiof 

nCTHANC 

NITROCEN 

OXVCCn 

ARGON 

MVORocEh SUIEIOC 
CARtONVL SUirioe 
CARION Disuinoc 
SUiruR DIOXIDE 
AnnoNiA 

hydrogen cyanide 

HYDROGEN CHLORIDE 
NITROUS OXIDE 
Chlorine 

ethylene 

ethane 

RRORylEne 

prorame 

SULPUR 


NOL-UT 

a oa 

n 01 

44 •! 

IS #4 

at ti 

38 M 

4t M 

34 M 
St tt 

7S 14 
64 ts 
17 #3 
a7 #3 

35 4S 
3t tl 

35 4S 

28 95 

39 97 

4a 99 
44 90 
32 97 


^ 7RfAT»«NT (T, cONT 

OTHANC /Kitr tULPUR 

KNAND QA» RIjUIME WATER 

9>'o roNOEN- 

fATt 

••mwmtMMtatttnttM L9-N0LE9/H* 

a9999«93 

31799T93 

34569*94 


#jTt rr^i^M 
•HfET It or 19 
rtaiE NO 1 


16959*94 

54999*9a 

aa899*91 


59799*93 


total DRY 

U9TER Hao It ( 

total wet ' 

total CAS/LIOOID 

COAL 

A5N 

CAfftON 

total SOLIDS 

total strean 

TENRERATuRE . DEC f 
PRESSURE. RSI A 

M^LIO NOLE WEIGHT, Lt.'Lt-AOL 
POWER, KW (•Tu/'HR) 


ai599*93 59999*93 

M839*94 99599*93 56999*93 


59799*93 


5*5’T^. 99599*93 56999*93 59799*93 

91544*96 *4MM*9^ * '9116*96* ^6984*95 •••••*******«**««***t 


91544*96 49559*94 19116*96 16894*95 


19999*93 

14799*98 


90999*93 

64799*99 

19999*99 


19999*93 

14799*99 

16999*99 


98699*93 

15799*99 

39999*92 


PAUSE 99999 > 



5.1.3 Test Case 


To execute the program: 

0XQT XQT 

Once this lias happened, a r>tri ani and Ut ility Table Menu appeals 
with the followimj options: 

1) Define New Tabic; 

2) Revise Existing Table 

3) Delete Existing Table 

4) Print Selected 'I’able 

5) Save Revision 

1) If the user chooses to dotine a new table, he chooses 

option number one. Then, the user is asked to write the 
facility name in an A8 format, the case number and table 
number, both in an II format. The user is then asked 
to write the sheet number in an 12 format with leading 
zeroes. If the user wants sheet number two, he must in- 
sert '02' and not just 2. A two will (jive user sheet 
number 20. The user is .iskcd to give the data in format 
MM/DD/YY. The System Lalxil is to be written in an A76 
format. There are two asterisks given to define the 
limits of the system label. 

An answer of 'YES' will allow the user to put optional 
data in. The optional data includes 'drawn by ,' 'engineer 's 
name' and 'approved by'. A return of the carriage will 
allow the user to skip thiise questions. 

Next, the stream name will be asked for in an A8 format. 

A stream description will be asked for in the form of 
four lines with a maximum of 9 characters per line. Again, 
the limits of the nine characters per line are indicated 
by two asterisks. Centering of each line is not needed 
for the line because the program itself will take care of 
the centering of lines for the user. 

Finally, the user is asked for the moles per hour for the 
twenty-one compounds in a F-type format. If a zero is 
wanted, all the user has to do is to hit the carriage re- 
turn. If the user wants t.o use special compounds, answer 
yes. A carriage return will allow the user to bypass the 
questions. If special compounds are recjuired, the user 
needs to input the compound name in an A16 format, com- 
pound formula in an A8 format, the compound molecular 
weight in any F-type format, and moles per hour in any 
F-type format. This loop is continued until the user 
desires no more special compounds. The last information 
is the totals, temperature, pressure PSIA, gas molecular 
weight and power kilowatt BTU per hour. 
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At. this t inw’, t lu' ustM t’.in iii|)Ul mm *' I'oliiiim tl.il'.i .»nd t h(‘ 
f)roct.*.ss wi 1 I sliii t . I I not , I hi' «'an input mot 

oolumn, slu'(?t d.it.i or can <'vcn input a n<'w f'aci 1 i t y nainc, 
case itamo, <md tal)lo lutm-*. If all of the answf*rs arc no, 
then the user returns to tin.' main menu. 

2) To revise existincj t.d)]o^., the user aejain is asked to 
input facility name, ('ase number, table number, and sheet 
number. If the sheet nunber is less than 10, the user is 
required to use leading iicroes . 

The user can then change the system name, drawn by name, 
engineer's name, approved by, or change the data. If 
none of the above require a change, the user will continue. 
If the user wants to change a particular colunn, he will insert 
the colunn nunber which he v.-ants. The system will ask him to write 
the desired information aiiain. 

If the user wants to continue, the names of the columns 
are listed. The user will write the number of the column 
to be changed in II format. Then, the user will write 
the stream name in an AH lormat. After a match is found, 
the following information is then chan<jod; the stream do-- 
scription, the moles/hour for the compounds, special com- 
ponents, and conditions. The user does n^ have an option 
to change any part of it, but has to input all of the 
information . 

The user has the choices to change more column data, sheet 
data or the change facility name/case/table. 

3) To delete existing data, the user has a choice of deleting 
the entire facility, case, table, sheet or column. After 
the user has decided upon which one he desires, the pro- 
gram will remove name and update all of the pointers. The 
user will continue and can delete as many columns, sheets, 
tables, cases or facilitv' names. 

4) To output the tables, th<* user has to first input the 
facility name, case number, and table number. The user 
must know the sheet number to be printed. Again, if the 
sheet number is less than 10, leading zeroes must be used. 
If all of the sheets arc to be printed dealing with that 
facility name, case number, and table number, the user 
needs to input a 99 . The user has the option to print 
more individual sheets or to process more tables. 
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5-l.i.l Test Case LisLina 
Soc the foJlc>wiii<) piii)c's. 


1 n 



• • • 


STtIDW AND utility TAtU fCHU 

1 - KTINC r«W TAIU 
t - ffcuise EXl$Tir<C TAILC 

I - KLerc exiSTiNc takc 

I - PBINT SCLCCTtD TMLC 
S - SAUf AFUISION 

P«SS BCTUPN to txiT 

INPUT CHOICE IH II POimAT 

■4 

S' 

O 




UAiij Mr:NV 



Min rActirTv mm m m r om m 
>Ttxnco 

Min cMt Hjmn it« it fowmt 

>3 

Min TMLC NUnK* IN II ronWT 

Min tMurci-tc> NUNKK TO K wiwm in t» ronwr. minq icmino zcaoc* 

UK M ir ALL CMCCTt MK MQUlKO 

>M 


I 

M 

O 


THE SELECTED TABLES 


o 

- Cl 
H ft 

CD 


CM.LOI nwOTO n moumtnt. mmMtoom 

WKin FMXlirv MM« IN «0 rOIMNT 

> £<«mCO 

yoirc CASC MunKR in n roNMir 

>3 

UNirC TAtU MUnKR IN It rOMMT 


CXNCCTt *4 


Mirc 9»«CT Nuntc* in la roMAt with uadinq nmct 

>ai 

I - CNmNQC fVSTlN NANC 

• - CHfNCC *0NAWN tv* NAME 

3 - CHxMGC *CN«** NANC 

4 - CNANCC *AMI* NANI 
f - CHANCE DATE 

• - AETuKN TO CONTINUE 

>• 

C4I E42 »43 «44 C4f «4« $47 C4f • 

1 1 1 I 1 1 1 t I 

139» 

ao«7 

anas 

4LK 

SS99 

EL07 

7E99 

tL99 1- 3 

uMirc nunkr or colunn to be changed in it romAT 

>3 

MUTE STREAN NANE IN At rOAfMr 

>nSS 

HATCH hT S43 

UNITE STREAN OESCRIATION IN 4 LINES OT 9 CHARACTCM EACH 
UITHIN TME units INDICATED 

t » 

>LR 

>ST£AN 

> 


WRITE the nOUS/M( rORTMC rOLLOUIHt COHROUNM IN E-TVAE 
ZEROES NAV be ENTERO AS BLANCS 
Hi 


NtS 

CRS 

csa 




U1 

I 

ho 

M 


> 

> 

> 

> 

> 

> 

> 

> 


•M 

WO 

HCN 

**CL 

NC 

CL 

C£m4 

C^MC 


> 

C3HS 

> 

» 

> 

^ ANSUCR VCS IF SOCIAL CCMPOUNM MK KOUIRCD 
TO^’L 0«V 

*OTL UfT 
>27*3 

TOIL CAS 
>497M 
COAL 

> 

ASM 

> 


CAnOA 

> 


TOT SL»S 

> 

TOT STKA 
>4B7M 

xwi Tc Fo uogiwo co wiTi om in ANY r>Tvn romiT 
zoocs fiAv K cnnacs a bumm 
Tcnn KQ. F 

>2M 

MEt ASIA 
>«4 7 

OAS nOL>WT 

>!■ 

Aoua KU(4) STU/’WIt-) 

> 


yniTt Nunto of cocunn to K CMAnocB in ii fowwt 
A«« swc* vtt TO coiT now twrr onn 

AMS4CJI VCS TO EDIT NEW FACILITY nAnS^'CASt^ABU 




ui 

I 

NJ 

Ui 


t • fcirrc INTIM rACKtTV 

f - KLITC orrtw Mil 

3 - KUTK ENTIK TAiU 

4 - DCtXTc EHTiic s*«rr 

f - KLCTt CMTliC COLUMN 
KTUiM TO COmiNUC 

yviTi CH4MC rvfc in ii fomwt 

>> 

y*:TE r«ciLiTy nmc in m rowwr 

>TEXNCO 

MITE CNSC fWlK* IN II fOifWT 

>9 

MITE TNiLC NUUKR IN M F0«WT 
>l 

MITE S>CET NUNK* IN It ro«MT WITH LENtlNi ZEMt 
>tl 

1W9 

MS? 


4CSE 

SS99 

•197 

TEW 

ILM I- 3 

WRITE NunSER or THE COUtW TO K KLETEt USIftt II nWWI 
>3 

RNSWER VES TO tELETE ROiC COUMMS 

> 

CftK S4i E4t 0 E44 E4E i4t E47 i4i • 1 

I - DELETE ENTIRE fACILITV 
• - DEUTE ENTIRE CASE 
t • DEUTE ENTIRE TAIU 
4 - DEUTE ENTIRE SHEET 
f - DEUTE ENTIRE COLUNN 
return TO CONTINUE 


> 


WRITE CMANQC TVRE IN II rORfMT 


1 1 1 1 I I 1 1 


TO DELETE, IN THIS EXAMPLE AN ENTIRE 
COLUMN WAS DEl.ETED. 
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fAciLiTY mm IN m nmm 

>VC'(M0 

W»m e*«f MUNKN IN II FOMWT 

) 

y«tTC ytmx wjnk« im n rovtur 

>4 

M*irc fMur NunK* ih j» romwT uitm liaoinq atMCt 

'J2 

uKiTf srvcM* name in At ro0T»r 

>-23 

yAiTE tnicAN KtcNirrioM in a Linn or 9 cmanactcm each 

WITHIN the IINIT9 IN9ICATEV 

t t 

>TE9T 

^CAtC 

> 

> 

UNITE T*C nOU9^ fON T ig rOUOWINQ CO NNOM— IN f-TVNC Ei 
ZCN0E9 NAV 9E ENTENCO At ttANEt 

H2 

> 

CO 

> 

COE 

> 

CM4 

> 

N2 

> 

02 

> 

AP 

> 

H29 

> 

CM 

> 

CM 

> 

902 

> 

m3 

> 

HCH 

> 

MCI 

> 

NO 

> 


Cl 

> 



C3N9 

> 


C 3 K 9 

> 

9 

> 



, XU /\n £«i>iixn£> 

COLUJIN WAS ADDED. 


:qui» 


4MMDI vu ir tPceiM. ta me u tm im m 

>/t5 

URITC COMPOur* MMC IN Alt rOMMT 
> TtT 

WNJTI CONNOUHO rODNUUt IN A0 rowwT 

y 

WAITf CONAOLTO NOlfCUCAN UtlOMT IN tm r-TvNC rOWWT 
UAITC NOLCt'NN IN AKV r-TVPl fOANAT 


\ • 


> 

> 

> 

> 

> 

> 

> 

> 

> 

> 

> 

> 

> 

> 


ANMKA Vf* ir SACCIAL CONAOUNM AAt KtUlKO 

TOn, ®AV 

Mt« 

TOrt UfT 
TOn OAS 
COAL 
AON 
CAAION 
TOT 5L0S 
TOI »?•« 

WAITt rOLLOWiNG CONOITIONS IN ANY r-Ty0€ FOANAT 
ZCROCS NAV K CrrrCACO A tLANKt 
TiNA DCQ. f 

ARCS ASIA 

OAS NOL-UT 

AOICA KU(«) »TU/MA(>> 


> 

> 

> 


•tl 

•sc 

•S3 

tS4 

•ss 

ttt 

MS 

tn ttt 

1 

1 

1 

1 

1 

1 

1 

1 

1 


•• 

•7 

tt 

tt 

Tt 

71 

Tt 

73 


t K 

AHMCA vet TO IIVUT NQAi COUJNN BATA 
AMWCR veS TO INAUT NOAC tMOT DATA 
ANtWiR VtS TO INAUT f<U AACILITV NANt 


74 




VCAM/TAMS 



6.0 SOURCE CODE LISTING 
See the following pages. 
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( 


••4. C J » 


<T> 

I 

NJ 


ssssssss 

TTT TTTTTTTTT 

rrrrrrrrrr 

CCCEECCCCCEC 

AAAI 

AAAA 

NM 

MM 



TTI TTTTTTTf T 

OMDAftODODD _ 

-ACMtf RXSFAR -- 


piww • -< 

ftffTt 

SS SS 

TT 

RR 

RR 

EE 

BA 

AA 

NMNM 

MMMM 


SSS SS 

TT 

RR 

RR 

EF 

AA 

AA 

NNNMM 

NNNMM 

O I V ' T 

sss 

TT 

RR 

RR 

EC 

AA 

AA 

MM MMNMNN NM 


SSS 

TT 

RRRRRRRRRRR 

CEECCCCE 



MM MMMM HH 


sss 
sss - 

Tl 

ff 

PlIRPRRRRPR 

OD 

ctctctcr 

... . 


RR 

NR NN 

NN 


SS SS 

TT 

RR 

RR 

EC 

AA 

AA 

MM 

MM 


SS SS 

IT 

RR 

RR 

EC 

AA 

AA 

MM 

MM 


ssssssssss 

TT 

RR 

RR 

CEECCCCECCCC 

AA 

AA 

MM 

MM 


ssssssss 

TT 

RR 

RR 

ECCCCCEEECCr 

AA 

AA 

MM 

MM 


ssssssss 

EECEEEECEEEE 

V» 

VV 

IHIH 

C6BCCCGG 

NN 

NN 


ssssssssss 

ECCEEtCEECEC 

VV 

VV 

tlllll 


NNN 

NN 


SS SS 

EE 

vv 

vv 

II 

66 

66 

NNNN 

NN 


sss SS 

EE 


vv 

11 

66 

66 

NNNNN 

NN 


sss 

EE 

VV 

vv 

11 

66 


NN NNN 

NN 


sss 

€(€ f 



.ft 






sss 

EEEEEEEE 

VV 

vv 

11 

66 

6666 

NN NNN NN 


sss 

EC 

vv 

vv 

11 

66 

6666 

NN NNN NN 


SS SS 

EC 

vvvv 

tl 

66 

66 

NN 

NNNNN 


SS SS 

EC 

vvvv 

11 

66 

66 

NN 

NNNN 


ssssssssss 

CCCCCCCECCCC 


vv 

IHIH 

GG66G66G66 

NN 

NNN 


ssssssss 

CCCCCCCCCCCE 

— _ _ . 

vv — — 

-flllH 

66666666 

AlW 

-- «N 



BBBBBBBBBB 
BBBBBBBBBBB 
6B 6B 

6B BB 

BB BB 

BBBBBBBBBB 
BBBBBBBBBB 
BB BB 

BB BB 

BB BB 

BBBBBBBBBBB 
BBBBBBBBBB 


Him 

Him 

II 

_H 

II 

II 

II 

H 

II 

II 

Him 

Him 


NN NN 
NNN NN 
NNNN NN 

NNNNN NN 

NN NNN NN 
NN NNN NN 
NN NNN NN 
NN NNN NN 
NN NNNNN 
NN > NNNN 
NN NNN 
NN NN 


222222 
2222222222 
222 222 

32 222 

222 

222 

222 

222 

222 

222 

222222222222 

222222222222 


0000 

00000 noo 
000 000 
000 - 00000 
00 00 00 
00 00 00 
00 00 00 
00 00 DO 

0000 000 
— 000 - 000 
00000000 
0000 


SB SB 

BB BB 

SB as 

BBBBBBBBBB 
BBS B3B 

BB BB 

BBS BBS 

BSBBSBSS 


•••••* UNlwBC 1100 TIN(/SH«R1NG t«tC ACCOUNT NUNBCR • IHPA01RS002I Lt*« crJBR2BM0STI SHI • HOST 1 •••••• 


RUNIO A STRFAN 
FILE NAME * PRT 


USER 10 • 


PARI NUMBER • 00 INPUT OEBICt • OTNOON OUTPUT CCVICC • MRS 

CBCATtO ATt 0B;SS:I6 JAn 1A.I9S1 PRINTED AT: 08:SR:A« JAN 1«.19SI 



NO. *S 


A 4. Jt JO t 4 


f ovu llVOt Z3NS0 7I90I2SNS 


9O123NS«TS9O12S«S67««Ol?S«S»70«0t?3NS67t«01?S«S«Ttf0b 


/ 


a\ 

I 

LJ 


•xot.al SrS<*NSrc».LISTlT 

OH 06 |I> « 

OPRT.S A 

AHOG.P BOOT 

iPRT.S BOOT 

OHOC(P CHECK 

aPRT.S CHECK 

OHDGiP CNAHE 

«PPT,S CNAHE 

BHOGiP COLUHN 

aPRT,S COLUHN 

OHOG.P COPT 

*PPT,S COPT 

BHOGiP CSHEET 

arTH.S CSHECT.CSHECT 

BHOGt** OCFIN 

«FTN,S OCFIN. OCriN 

BHDGiP DEFINE 

BFTN.S DEFINE .DEFINE 

BHOG.P OCLCTC 

aPRT.S DELETE 

BHOG.P EDIT 

iFTN.S EDIT. EDIT 

BHOG.P file 

BFTN.S FILE. FILE 

BHOG.P GCTON 

BFRT.S GCTON 

BHOG.P INIT 

BFTN.S INIT. INIT 

BHOG.P HAIN 

•FTN.S HAIN.HAIN 

•HOC.P NAP 

BPRT.S HAP 

BHOG.P HCNU 

BFTN.S HCNU. HCNU 

AHOG.P OPOATA 

aPRT.S OPOATA 

aHOG.P OUTPUT 

aFTN.S OUTPUT .OUTPUT 

aHOG.P PSELCT 

aPRT.S PSELCT 

aHOG.P SELECT 

aFTN.S SELECT. SELECT 

aHOG.P SHEET 

aFTN.S SHEET. SHEET 

aHOG.P SHTNUH 

aPRT.S SHTNUH 

aHOG.P UPDATE 

aPRT.S UPDATE 

aHOG.P XHAP 

aPRT.S XHAP 


aHOG.P A 

aPRT.S A 



A 


( 

srvlGN8lN?08*CC$( 1 1 .A 

1 LIB SYS«*M&rcr?Mtr 

2 IN Tprt.RCMORN 

i NOT TPrs.HAiN 


BHOCfT* BOOT 


^PRT.S boot 

rURPUR ?8R1M1 Elfc STATU 0I/IA/8I 08:5JtJ5 


<T> 

I 

tn 


DATE 011A8I 


^•6C 




f 


r 


< 


BOOT date 011«BI B«tC 1 

SrviGNeiN208*CGS< lI.eOOT 

1 BCAT.B C6i,r/4«/TRK/l?t . 

2 4C«T,P l<t,r /2/TRK/4 

3 iCAT.P I4.P/I/P0S/2 

A «C*T,P 20,r/2/P0S/A 

5 BASG.A CCS. 

6 a«SG|A S«. 

T B«GG,« U. 

a iASC,* 20. 

9 BCOPT TPF9..CGS. -- 

10 BCOPr.G pUR.»I«. 

11 aCOPV.G PUR.tlfc. 

12 BCOPT, G PUR. ,20. 

13 BFRCt POR. 

19 BFRCE TPrt. 

IS ausc TPrs.,cGS 


BHOG.P CMCCN 


BPRT.S CHECK 

^ ruRPUR 28R1HI E3b S74T11 01/19/81 08:S3:37 




( 


IIN?OB*CCSl II. CHECK 

SUBROUTINE CHECK tcetN*#iISMfETTHTft«LeTl«Otrf«^* 

INTEGER TSHEET 

COHNON /TSHECT/TSHCETI IRiTEI 
COHHON /lOUT/JOUT.JIN 
OIHENSION IRTRt^iEI 
CHARACTER BNAHE«A(2I 

CHARACTER COtNAH^^IfE - - 

ir INTABLE.CQ.OI GO TO 3SO 

ir intable. LT.O) NTABLE=-NTABLE 

ir IK00INTA8LE.2I.E0.I I GO TO 10 

N1=NTABLE-I 

N?=NTABLE 

CO TO 20 

lU NI=NTABLE 
N2=NI*I 

20 00 130 KKrN|,N2 
00 320 Ir|,I6 
J3:TSHEETI l.HKI 

If IJ3tEO»OI 00 TO 320 

READ II6*J3I IRTR 
DO 3l« J:|.« 

JI :IPTRIJ,1 1 
ir IJI.EO.OI SO TO 318 
READ 120’Jll BNANf 

00 316 m: 1 i? - - - 

IE IBNAHC IK I .NC .COLNAHIKI I GO TO 318 
316 CONTINUE 

WRITE 16,90001 Jf 
9000 FORMAT I* HATCH AT*,I6I 
IC0L=IRTR|J,1I 

IE IS.EQ.iSHEET.ANO.KM.EO.NTABtFT 60 TO 3*0- 

GO TO 350 
318 CONTINUE 
3?0 CONTINUE 
330 CONTINUE 
GO TO ISO 

3*0 IE IIOP.EO.2) GO TO 35o - - - - — 

WRITE IJOUT,3*2l 

3*2 FORMAT I* THIS COLUMN NAME ALREAOT CRISTS FOR 

I* EACILITT name ECASE/T ABLE/SHCE r*/ 

XBR,*USE EDIT MENU To CHANGE*! 

GO TO 360 

350 lOPaO - - _ _ — 

360 CONTINUE 
RETURN 
END 


8H06,P 


8PRT,S CNAME 

EURPUR 28R1H1 E 36 S7*T11 Ol/l*/81 08:53t38 



GI9EN* , 



CN*«t OAtt OIlAAl rA6t I 

SFVIGNBlN?oa*CGS« 1 1 .CNAHC 

I SUBROUflME CNAHf «€OlN*Hv«Hlktl — — — 

? COMMON /lOUT/JOUT ,JIN 

1 character COLNAm*«|?» 

« CHARACTER A0UM*A|?t,S0UM*8 

S COUIVRLCNCC lAOUMt 1 I tSOUMI 

8 character blank*) ,OOUM«|,BLNR«I|,NOr|,N«*1 

T character 

B character 1«*1 • )?•) .ILR«1 .IRR*) 

R DATA BLANK/* */,BLNK/' •/ 

10 DATA lA/’A'/.lE/'^’/.lLR/’T’/tlBP/M’/.NO/’O'/.NR/***/ 

11 a WRITE IJOUTflOl 

1? 10 FORMAT |SR, 'WRITE STREAM NAME IN AB FORMAT *1 

IJ II nC*0 I JIN,17,ERR=I 1 > AOOM -- 

IM 12 FORMAT I2AA) 

15 c isolate ant multiplier 

16 NULT:i 

IT I2Z=SUBSTR I AOUM f 1 > , 1 ,1 I 

la IF (I22.GE.IA.AN0.I22.LE.I21 CO TO SO 

IR |E (122.LT.NU.0R,I2?.CT.N9I 60 T0-« 

20 lrr:SUBSTRIAOUMIl 1,2,1 I 

21 IF IITT.NE.ILPI 60 TO B 

ON 22 0EC00E(20.A0UM1 MULT 

I 23 20 FORMAT (III 

00 2*1 C REMOVE N( 

2S SUPSTR (SOUM, I ,B CSUBSTR ISOUM, 1,61 - 

2b SUBSTR (SOUM,T ,2 KSUBSTR (BLNK , 1 , 21 

2T C REMOVE final I 

28 00 22 I:B,1 ,-| 

29 00um:SUBSTR(SDUM,I,1i 

30 IF (D0UM.NC.1RP I 60 TO 22 

31 SUBSTR(S0UM,1,1 i:SUBSTR«BLNK,t,l» 

32 60 TO 30 

33 22 CONTINUE 

3*1 60 TO B 

35 30 00 32 1 = 1 ,2 

36 32 COLNAMdl =A0UM( 1) 

36 END 


BHOG,P COLUMN 


aPRT,S COLUMN 

FURPUR 2 aRlHI E36 STvTn 01/19/81 0BiS3t39 



( 


COL UHN 


OftTC 


IN?on«CGSI 1 1 .COLUMN 

SUBNOuTINC column l€OLOC5f€e»:V*R|€»f*|irTNt 

CMARACTCR COlOCS*« 
dimension colocsii?i 

DIMENSION COLVARlIbl 
common /IOUT/ jout.jin 
character PROMPT*8f C0N0*1? 

OIMENSlON-PROMPTUOTiCONOISI 

CHARACTER BLANK*1,D0UM*1 
dimension XTRI?,]| 
character CX|R*«(b,JI 
character yes*a *tyes#a 
character BDUMRAI 3I,TDUM«9 

CRUIVALENCE IBDOMI i »,T bUH» 

DATA BLANK/’ •/ 

DATA YYES/’YES ’/ 

DATA (PRONPTIII ,lri, 101/ 
t’He’.’CO’.’CO?’ ,’CMA’, •N7’,’0?’,’«R*,’M?S*t 
t’CDS*,»CS2’,’S07’ ,’NHJ’,’MCN’,’HCL»,»N0*,’CL* . 

e*C?MN*i’C?M6’i’C3H6*i*e5HB’f ’S’ i'TOTL ORY’i’mBO*! 

t’TOTL MET’.’TOTL 6 AS ’ , • CO AL ’ , * A SH’ , *C ARBON* , * TO T SLOS’ , 
t’TOT STRM’/ 

DAT* IC0NUIII.I=I,SI/ 
t’TEMR DE6, r’.’FRCS PS1A’*’6AS nOL-NT’, 

C’POWCR KUI’I • , ’BTU/HR I -» •/ 

DO ID K»l .6 — - 

DO 10 j;i ,3 
ID CITR|M,J|:’ • 

DO 12 Kri ,2 
DO 12 J:l • 3 
12 XTRIK.JUO. 

MRITC(J0UT,2D> - 

20 rORKATISX , ’W rite stream DESCRIPTION IN A LINES OF 9 CHARACTERS 
C*E*CH*/8X , ’WIThIN the LIMITS 1 NOICATEO * // 1 X * *•* t VX « *•* | 

DO 2b 1=1,12.3 

21 READ < JIN,2?,ERRS?1 I BDUH 
22 rORMATI2AA,AI I 

IX=0 

DO 222 M=9,l,-1 
00UM:SUBSTRI TOUHfK, 1 I 
ir lOOUH .NE. BLANK IGO TO 22A 
1X=1X*I 
222 CONTINUE 

22A irilR.lC.IIGO TO ?lT 

lX=IX/2 

1XI=9-IX 

SUBS.TRITDUM.1X* I.IXI I = SUB SIR I TOUM , 1 , 1 X 1 1 
DO 22S N=1 ,1X 

SUBSTRI TDUM.N.I IxSUBSTRIBLANN. 1,11 

22S CONTINUE 

22T DO 22b K=|,3 

22b COLOESlK*I-||:BnUM|N| 

2b CONTINUE 

MRITEIUOUT.27T 

2T FORMAT ISX , ’WRITE THE MOLES/HR FOR THE FOLLOWING • 

t’COMPOuNOS IN F-TYPE FORMAT.’ /«»,’2LR0ES MAY BE ’ 

C.’ENTEREO AS BLANKS’! 
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f 


COLUMN 



ST 



St 



S9 

30 


60 

31 


61 

32 


6? 



63 



6N 

2N0 


6S 

N1 


66 

93 


67 

N2 


6t 



69 



70 

NN 


71 

NS 


72 

n6 


73 



7N 

NO 


7S 

N9 


76 

SO 


77 



7t 

S2 


79 

S3 

a\ 

to 


1 

tl 

SN 

10 

02 

ss 


ts 



ON 



ts 

NO 


06 

S6 


07 

SO 


tt 



09 



90 



91 

60 


92 

61 


93 

70 


9N 



9S 

SO 


96 

• 1 


97 



90 



99 



OHOG,P 

COPT 

oprt ,S 

COPT 

FURPUR 

28RIH1 El 


00 «0 l^ltlO 

y»ifc iJOuT.ioi 

roRNAT(5Kt*ai 

ffc«o ijin,)?,crp:3i I coi¥«pm 
roRN«T iris.oi 

ir (I.NC.?II 60 TO «o 
ixx=i 

yPITI I J9UT (Nil - 

FORMAT ISI. 'ANSWER TCS IF SPECIAL COMPOUNDS ARC RCOUIREO«l 
READ IJIN,N?,ERR:n]I TES 
format (ANI 

IF I VES*NE .TVES I 60 TO NO 
WRITE (JOUT(NN) 

format ISR, ’write COMTOwnO name in A|4 -fdrmat •« 

Read IJ1N,N6,ERR:nSI IClTRIII.liirl,lI:l,NI 
FORMAT INANI 
WRITE IJOUT.NSI 

FORMAT ISR, ’WRITE COMPOUND FORMULA IN At FORMAT’I 
READ IJIN,S0(ERRrN9| I C RTRl 1 1 , 1 RR 1 , 1 1 :S,6 I 

format «?AN I 

WRITE (J0UT,S2I 

format ISRt’WRlTE COMPOUND MOLECULAR WEIGHT IN ANT F-TyPE FORNAT’l 
READ ( JIN, J2,ERR:SJI RTRII.IXXI 
WRITE IJOUT.SNI 

FORMAT ISR, ’write moles/hr IN ANT F-TTPF FORMAT’I 

READ ljIN,>2,ERR:SSI XTR(2 ,|khI 

IRX:IRR«I 

IF lIRR.LE.JI 60 TO 2ND 

CONTINUE 

WRITE IJOUT.StI 

FORMATISR, ’WRITE following CONDITIONS IN ANT F-’, 

E’TyPE format. ’/ tXt’/EROEG MAT »E CNTE»E« A •EANR6*» 

DO 70 1=1,3 

WRITE IJ0UT,60I CONOm 
FORMATISR ,AI2I 

READ IJIN, 3?,ERR = 61 I C0LVARI30*H 
CONTINUE 

WRITEI JOUT ,tOI CONOINI (CONOISI - 

FORMATISR, 2AI2I 

READ I JIN, l2,ERR = tl I C0LTARI3NI 
C0LVARI3SI=IXR-I 

return 

END 


STNTll 01/IR/tl OtiSliNO 


date OllNtl PAGE 



f 



0*Tt Oll«tl 

srvicNBiN?oe*cGSi 1 i .copy 

I «C«T PRT, 

? ««SG.« PPT. 

3 BBPNPT PPINTt/PPT 

* a>OT,«L STSt*HSrc».LISTIT 

S BBPkPT PPiNTt 

fc BSyh prt.i.mhsp 


aHOG.P CSHfCT 


PAGf 



f 


OATC OIl«»l 


rCSHCET 



SUBROUT INC CSHCCTINT*BLC,lSHCCT,n>TR.SrSN«H,OR*WN,CNCB««PP«>iO«TCI 
CONNON/IOUT /JOUT ,^1N 
INTCGCR TSHCCT 

CHARACTER 0 ATf • A ,S VSN AM*« , ORA WN*N t ENoP*« • *PPR*N 
OINENSION OATC«?l, SrSNAHITO I , OR AWN I R I ,C NGRI A I , ARPR I « I 

CONHON/TSHEET/TSHECt«IG,3?» 

OIHCNSION 1PTR|9,?| 

B WRITE IJOUT, lOI 

10 rORNATtSx, ’WRITE SHEET NUNBCR IN 12 EORNRT WITH LCtOING 2ER0CS*I 
II REA0IJIN,1?.ERR=II I ISheET 
1? rORNAT«I2l 

^IE(TGHCETIIGHCET,NTA»t:EI.GT.O» GO T« ?0 

WRITE ( JOUT, 161 

16 rORHATI’ SHEET NUNBCR DOES NOT EXIST ••••I 

GO TO e 

LOCATE original DATA 

20 J|:TSHCET4IGHEET,NTA0LEt — 

RCAO I16*JSI IPTR, STSNAH, DRAWN. CNCR»APPR,OATC 
2R WRITE IJOUT, 101 

10 roRMATi* 1 - chance ststck name*/ 

C* 2 - CHANGE "DRAWN BV" NAHE*/ 

C* J - change "EN6R" NAME’/ 

C’ A - CHANGC "APPR" NAME’/ 

t’ S - CHANGE DATE’/ 

C* 0 - RETURN TO CONTINUC'I 
I0P=0 

12 RE ADIJIN, lA ,ERR=]2 i lOP 
]A rORHATIllI 

irtlOP.GT.SI GO TO 12 

irilOP.CO.OI GO TO 100 
GO TO IA0,S0,60, 70.B0I.I0P 


SrSTEN NAHE 
AO WRITE IJOUT ,A2l 

A2 rORHATI&x, ’WRITE SvSTCN LABEL. IN A76 EORNAT W<TH|N-ThE L<N|?B* 
t’ 1N0ICATC0’/1X,’"’,T6 K,’a’I 
A] RE ADIJIN, A A ,ERR = AlMSrsNANI II ,i:i,19l 
AA F0RHATI19AAI 

SrSNANl20i:’ ’ 

GO TO 2A 


DRAWN BV 

>0 WRITE I JOUT, S2I 

»2 rORHATlSX, ’WRITE "DRAWN BV" NAHE IN Al6 EORHAT’I 
S3 read I JIN,SA,ERR:SSI0RAWN 
»A rORHATIAAAl 
GO TO 2A 


ENGINEER 

10 WRITE IJOUT, 621 

>2 rORHATlSX, ’WRITE "CNCR" NAHE IN A16 FORNAT’I 
61 RCAOIJIN.SA ,ERRr63 I ENGR 
GO TO 2A 


-13 


( 


( 


CSMttT 

56. C APPROVCO 

ST, TO 4IPITC IJOWTt T2t - - 

SO. T7 PORHATfSK,*UPIT( ■APPRa NtNC !•« Alb PORHATM 

59. T5 RCAD IJlN,SA,CRRrT)| APPR 

60. GO TO 76 

61 . C 

67. C DATE 

65, 80 MRITf t J0t}T|8*l 

66. 8? rORMAT ISX, 'WRITE DATE IN NNTOO/TV PORNAT*} 

65, 83 REAO < JiN , 8 6 ,PRR :8 3 lOATt 

66. 86 fORMATI7A6l 

6T. 60 TO 76 

68. 100 J3:TSHEETI1SHE(.T,NTABLEI 

69. WRITE l|6*J3> iPTR i5r5NAM|e6AWN|CH0«iARPR|eATr 

TO. RETURN 

Tl. END 

END PTN I6T IBANK 679 OBANK 516 COMMON 


AHOG.P OEPIN 




4rTN,s ocriN.ocriN 

rtN 9RlH2*01/|<i/«l-0«i(|t9,| 


SUBROUTINC OCrimiCRI 

COHHOM /UlMlT/ NNAHC tlCOLM.ICHAlN, JCOLMtJCMAlN 

CHARACTCR TNANC*9 

INTC6CR TCASC.TTABLC.TSHCCI 

COHHON /tNAf<C/ TN«MC(?.A ltN**TRMI 

COMMON /ICAIC/ TCAAC4U» 

COMMON /TTABIC/ TTABLCtS?! 

COMMON /TSHCCT/ TSHrcmo,]?! 

UR:0 

OCriNC rue 'Mll,i7S.V,JOAT«| 
orriNc rue iA<si?,S2,y .jchaini 

ocriNC rut ao(Bi7o»7N,Vr.ic«iM» 

riNoi i%*ii 

ReADIlA *1 ,eRR:iOOI NNAMC t ICOLM , ICH«IN .TNAME .MPTR. 

c.TCAse .ttablc .TSHte t 

ICOLMXl 

ICHAINXI 

RCTURN — 

100 ieR:| 

ReruRN 

eNo 


(NO r?N II IBANK AT OBANK $77 COMMON 


BHOG ,P 


ocr iNt 





( 


ocr iNt 


iNc.ocriNC 

’i«/»i-o»tSii 2 et» 

9UBR0UTINC OCriNC 
> COHHON /lOUT/ JOUTi JIN 

character NAH*«,ORAHN««tCNGRR«* APRRRR 
OINCNSION NAN(2 | .ORAWNIa >iCN«RlRI »«RPRIRI 
CHARACTCR 0«TC*«,SySNAN*A 

OINENSION D«TEI?»(5VSHAM|?e» 

character COLNAHaa (COLO r s*« 

OINENSION COLNANI2l,COLOCS(l?> 

OINENSION COLVARI5SI 
OINENSION KTR<;,3> 

CHARACTER C«TR*AI6,SI 

CHARACTCR rCSRRfTTCSRR - 

0*T» TES /*TtS •/ 

C OCTCRNINE OvCRRlL CONDITIONS 

10 C*LL SELECTINAN.ICASCflTABNO.NTAaLC* 

C READ IN SHEET OaTA 

?0 CALL SHEC T| ISHCET,0RTE*SVSNAN,NTABLCI 

IMNTABLE f8t»0T 80 TO 10 - - 

C OETERNINE OPTIONAL DATA 

CALL OPOATA (ORAWNiCNGR.APPR ) 

C READ IN COLUNN DATA 

50 CALL CNANE ICOLNAn.NULTI 
IC0L:0 

lOPci 

CALL CHECK I COLN AN, 1 SHEET, NT ABLE ,1C0L,I0PI 
ir IIOP.EO* II GO TO to 
IF IICOL.NE .01 60 TO 5? 

CALL COlUMNfCOLOES(COLVAR,CKlR,KTR| 

C STORE COLUNN OATA 

12 CALL -Flic (N AN, le ASC vl TA8N0 .DRAHNtCNGR t APPRf ISHC C T^HTABiC r 
(DATE tSTSNAN ,COLNAN,COLOEStCOLVAR,ClTR,RTR,ICOl,NULT I 
90 WRITE I JOUT| 1001 

100 FORNATISA,* answer TES TO INPUT NORL COLUNN 0ATA*I 

101 RCAOt JIN,10?|FRR:10II TTES 

102 rORNATIAAl 

Ifittcs .c«. test g8 to 10 

write IJOUT, 1101 

no FORNATISA,* ANSWER TES TO INPUT NORE SHEET OATA'I 
111 REA0IJIN,l02,CRRrllll TTES 
IMTTES .CQ. TESI GO TO 20 
WRITE IwOUT, 1201 

120 FORNATISA,* answer TES To INPUT NEW FAClklTT NANE /CASE2TAB 

121 read I J1N,|02,CRR=I2I I TTES 
IF ITTES .EO, TESI 60 TO 10 
RETURN 

END 


ENO FTN 88 IBANK 2T2 OSANK 2 COHNON 


OHOG ,P 


DELETE 


APRT,S DELETE 

FURPUR 2BR1H1 E5G STATU 0I2IA/8I 0B:S5:AT 




c 


PtLETC 


IN208«CGSI ll.OCLCTC 

(UBROUfiNF DfiCtC 

COHNOM /lOUT/ JOUT.Jlta 

COnnON /TLIMIT/ NNAME, ICOLMtlCHlIN 

CH«R«CTCff TNAMC *8 .N«N*« I2|,BL6MH*« 

INTEGER TCASE fT TABLE iTSHEET 
CONMOlt /TNANE/ TNANCI?.AI .NPIRIRI 

COHHON /TCA&E/ TCASEIIGT 

COMMON /TTABLE/ TTABLEM2I 
CONNON /TSHEET/ T SHE E T I l6 • 3? > 

OINENSION IPTP(S«?I 
CHARACTER C0LNAN«A«?> 

CHARACTER STSNAN«R(?OI .CRAWN^A (AT ,ENGR*A(A I ,APPRAA 

CHARACTER TES*A,VTEC*A — 

DATA blank/* •/ 

DATA TES/*TES »/ 

8 WR1TE(J0UT,10I 

10 fornati* I - delete entire FuCILITTV 
C* ? - OEIETE ENTIRE CASE*/ 

C* J - BELETE ENTIRE TABLE*/ 

t* A - delete entire sheet*/ 
t* s - oclete entire colunn*/ 

C* RETURN TO CONTINUE*/! 

I? HRITEIJOUT.IAI 

lA rORNAT ISX , *WRITC CHANGE TYPE IN II FORNAT*! 

IS READ I JlN,l4»CRRrlBiiOP 

16 rORNATIIll 

IF IIOP.GT .SIGO TO 1? 

IF llaP.E0*O!GO TO lAO 

c 

c facility NANE 

20 UR1TC(J0UT,?2I - 

22 FORNATlSX , ’WRITE FACILITY NANE IN AB FORNAT*! 

2S READlJlN,2A,ERRr2S!NAN 
2A F0RNATI2AAI 

DO 26 l:|.NNAnE 

IFINANin.NE.TNANEll.niSO TO 26 

IF(NAN|2!.NC.TNAMCt2,l!!G0 10-26 

GO TO 28 
26 CONTINUE 
GO TC 20 


RENOVE NANE AND UPDATE ALL POINTERS 
IFiIOP.GT.I !G0 TO AO 
TNANE 1 1 ,1 ! :BLANN 
TNANE 12 , I ! :Bl ANK 
1P=NPTR| I I 
HPTRI I !:-i 

I = I 

10:TCASEI1P-1*I ! , _ - 

TCASEI I-l *11 =0 

J=1 

1R=TtABLE ! 10-1* J! 

TTABLE(I0-1*J!:0 
K = 1 

1S:TSHEET IK ,1RI 
IF |1S.E0.0!G0 TO T9 




( 


( 




out re 


OATt Oll«tl P«GC 7 


ON 

I 

t— • 


5T 

58 

59 

60 
61 
6 ? 
63 
6* 

65 

66 

67 

68 

69 

70 

71 
7? 
73 
7«l 

75 

76 

77 

78 

79 

80 
81 
8? 
63 
89 

85 

86 

87 

88 

89 

90 

91 
9? 
93 
99 

95 

96 

97 

98 

99 
100 
101 
10? 
103 
109 

105 

106 

107 

108 
109 
1 10 
1 1 1 
1 1 ? 
113 


rsHccTiK,iRi=o 

RCAOf l6'iSl!PTR iS7SH«N teR«IH«tEM8Pf 8PPP rMTC 

37 l:1 

38 1T:1PTPIL|1) 

It tIT.GT.OI IPTRIL»1I=0 
L:L»1 

IML.Lt.9IG0 TO 38 

MPITEII6*ISllPTPt«r3f»*f1iOP«WNfEf«««^«PPffie8Te 
UPlTCI6t900llSi IPTR 
39 nrK*l 

It IN .LC . 16 ICO TO 36 
J=J*1 

lt|J.LC.?IGO TO 39 

1-1*1 - _ - 

ltll.LC.9lbO TO 3? 

IP llOP.NC.9t GO TO ?09 
URITC IJOUT,?QOi 

?00 format tSK.’ANSRER TES TO DELETE MORE SHEETS* I 
READ IJIN.?0?) WES 

?02 format IA9I 

IF lYES.EO.WCSI GO .TO 80 
GO TO 8 

?09 IF SIOP.NE.SI GO TO ?08 
MRITE IJ0UTi?06l 

?06 FORMAT ISV, 'ANSWER TtS TO DELETE MORE TABLES* I 

READ (JIN|?0?I VTES — 

IF (TES.EO.WESI GO TO 60 
GO TO 8 

?08 IF IIOP.NE.?! GO TO 8 
WRITE IJ0UT,?10I 

210 format ISX, 'ANSWER YES TO DELETE MORE CASES* I 

»E*0 YYES 

IF I YES. EO. YYES I GO TO 90 
GO TO 8 
C 

C REMOVE CASE AND UPDATE ALL POINTERS 

90 WR1TE(J0UT,92) 

9? FORNATfSKi'HRITE CASE-NUMBER IN II FORMAT*! — 
93 RE A0< JIN, 16,ERR=93I ICASr 
NCASE5NPTRI Il-l *ICASE 
10:TCASE INCASE 1 
IFIIO.EQ.OIGO TO 90 
IFIIOP.CT .21G0 10 60 

TCASE INCASE MO — 

1=9 

60 TO 33 
C 

C REMOVE TABLE AND UPDATE ALL POINTERS 

60 WRITE IJOUT ,621 

6? FORMATiSl, 'WRITE TABLE NUMBER IN || FORMAT*! ■ 
63 RE AOIJIN, 16,ERR=63I I TA8N0 
NTABN0=I0-1*|TABN0 
IR=TTABLE INTABNOI 
IF IIR.EO.OIGO TO 60 
IFIIOP.GT.JIGO TO 80 
TT ABLE INT ABNOI=0 
1=9 


( 


( 


( 


OCLCTC 0«TC Oll«tl P*GC 3 

III j:2 

1 IS 60 TO XS 

1 16 C 

I IT C RCHOVC SHCet »N0 UPDATE Alt POINTERS 

118 80 UR1TEIJ0UT,8?I 

119 8? TOPNATISX, ’WRITE SHEET NUMBER IN I2 FORMAT WITH LEADING XEROS’I 

1^0 83 REA0IUIN,BA,ERR=83I ISHEET 

l?| •« fORNATIIXI 

122 IS:TSHEET I ISHCE T.NTABNOI 

123 IF US. EQ. 0160 TO BO 

12* ir II0P.GT.B1C0 TO 100 

125 ISHEETUSHEEl.NTABNOUO 

126 RE A0II6US IIPTR .S VSN AM , OR AWN ,E NCR , APPR ,OATe 

127 I=B _ _ . 

128 j:2 

129 n:16 

1 30 GO TO 37 

1 31 C 

132 C REMOVE column «N0 UPOATE POINTERS 

1 33 100 RCA0U6'ISUPTR,SVGNAM. DRAWN, EN6R.APPR, DATE — — — 

I 3B 00 110 h:i ,9 

I IS JlzIPTRIN.ll 

1 36 IF IJI .EO.OIGO TO 110 

137 RE ADt20*Jl ICOLNAM 

' 138 WR ITE ( JOUT , I061M,C0LNAM 

1 39 106 F0RMATI1S.2A<«I - - 

190 110 CONTINUE 

191 112 HR1TEIJ0UT,I19I 

192 119 F0RMATISX,*WRITE number OF THE COLUMN TO BE OELETEO* 

193 C* USING 11 FORN*T*l 

199 IIS REA0IJ1N,|6,ERR:11S11X 

195 IF (lX.EQ.OlGO TO 120 

196 IPTRIlX.llzO 

197 write «J0UT,1I6I 

198 116 FORMAT ISX, ’ANSWER TtS TO DELETE MORE COLUMNS’1 

199 READ (JIN, 2021 VTES 

150 IF (TES.EO.TYESI GO TO 112 

151 120 HfllTE(16’lSllPTR,SVSNAM, DRAWN, EN6R,APPR,DATC 

152 WRlTE(6.900US, IPTr 

153 900 F0RMATIi5,’«»*’ .219151 I 

159 GO TO 8 

155 190 WRITE II9’1I NNAME.ICOLM.ICHAIN, 

156 X TNAHE,NPTR,TCASE.TTABLC.TSHEET 

1 57 RE TORN ^ 

158 end 


BHDG.P 
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EDIT DATE OII«tl PAGE I 

AETN.S EOIt.COIT 

PIN 90|H?««l/|A/BI-0§;5in«i > -- 

I. SUBROUTINE con 

?. character NAN*RiTNANC*R 

1. OINENSION NAHlei 

A. character COtNAH#% « ,C0L0E5*R« I2» 

5. character TES«A,TTC5*A 

b* INTEGER TEA « | T T ABtf | TSHEE T - — — 

7. COHNON/TNAHC/TNANC I2,A>,NPTR(A I 

8. CONNON/TCASC/TCASCT lb> 

R. COHHON/TTABLC/TT ABLET 3?l 

10. C0MN0N/TSHCCT/TShCCTTI6,S7I 

11. CONHON/TLIHTT^NNAHC ,1C0LN, ICHA in 

17. rONHON/ICUT 7U6UT idlN 

n. OINENSION IPTR(R,?I .COLVARI )6I 

lA. OINENSION XTRIf.II 

IS. character CXTR*«lb,3l 

lb. CHARACTER STSNAN*A ( 70 I, OR ANN* A I A I .ENQRRAI At , ARPR** f * I .OA TE*A I? I 

|7, DATA TTES/*TES •/ 

18. C SELECT BASIC TABtE — — 

19. 7 call SELCCTINAH.lCASC.nABNOI 

70. C CHECK EUSTANCE op TABCE 

71. lERrO 

77. 00 b m.NNAHE 

^ 1 7 5. 00 A j:i ,7 

vC 7 7A, IPINAHIJI.NEt TNANEt;#iltl BO TO B — ' 

7 7S. A CONTINUE 

I 7b. 60 TO 8 

I 77. b CONTINUE 

78. IER:i 

79. 8 NCASE:nPTRI II- l.lCASE 

JO. iriTCASEINCASEI.EBiOl ICRs? 

Jl. NTABLEsTCASETNCASE i>i*xt«bno 

J7. IMTTABLEINTABLEI.EO.OI ICR = 3 

33. miER.CO.OI 60 TO 70 

3A. WRITE IJOUT, 171 

3S. 17 rORNATl* *«*ERROR N AmE/C ASC /T ABLE ••#*! 

jfc, 60 TB 7 

37. C CHANGE SHEET OATA 

38. 70 CALL CSH[ E T IN T ABLE 1 1 SHCE T . I PTR , ST SNtH .OR AWN . EN qR . APPR . DA TE 1 

39. WRITE lb, 9001 IPTR 

AO. 900 FORMAT I9IS I 

Ai. c change column data 

A7. 00 *iO lr|»9 - 

1 AJ. Ji:iPTRII,lt 

I AA. IF IJI .CO. 01 60 TO NO 

1 AS. READ I70*J1I COLNAM 

1 Ab. write IJ0UT.7AII .COLNAM 

1 A7. 7A rORNAT I 1S,7 an I 

1 A8. NO CONTINUE - - — 

A9. N? WRITE IJOUT, NNI 

50. NN FORMaTiSA.'WRITC number of column to be changed |N II format •! 

51. NS READ I JIN,N6.ERR:nSiI0P 

S7. Nb formatiiii 

S3. IFIIOP.EO.OI GO To bQ 

SN. Jl =IPTRI lOP ,1 I - - 

SS. IFIJi.CO.OI GO TO N7 



-20 


( 


( 


con 


DATC Oll«« 


I 

1 


CTN 


S6. 

ST. 

ss. 

59. 

60. 
61 . 
6 ?. 
61. 
69. 
65. 
66 . 
67. 
66 . 

69. 

70. 

71. 
T^. 
73 . 
79. 
75. 
76 • 

77. 

78. 

79. 

80. 
81. 
8?. 


CALL CNAHEI C0LNAN*NULT1 

IPTRI IOP,?l =MUL7 - 

ICOLrO 

I0P=2 

CALL check (C0LH«H.ISHCCr,NT«BLC»ICOL*10PI 

call COLUHmCOLOESfCOL*AR,C«TP,«|P| 

ir IICOL.NE.OI J1=1C0L 

- IF IMULT.EO.I I so T» «6 

00 50 1=1,30 

50 COLVAPlIirCOtvAPm^MUtT 

00 52 1=1,3 

52 XTRI2,n=KTPI2,I l/NULT 

56 WRITE I20*JI1 COLNAM, COLOE 5 ,COL VAR,CXTR, K TR 

58 JI=T5HEtT«15HEET,N7ABiE» 

WRITE I16'J3I IPTR, STSNAN, DRAWN, ENGR,APPR, DATE 
00 TO 92 

60 WRITE IJOUT, 621 

62 F0RMATI5X, 'ANSWER TF5 TO EDIT MORE SHEET OA TE * I 
63 READ ( JTN,69,ERR=63irES 

69 P0RHAT(A9| - . - - 

IF (ytes.eo.vesi go to 20 
write (.(OUT, 721 

72 F0RHATI5X, ’ANSWER TtS TO EDIT NEW FACILITY NAHC /CASE/TABlE * I 
73 REA0IJIN,69 ,CRR=7S>TES 
IF lYYES.EO. YES» GO TO 2 

RET WRN — 

ENO 


END FTN 195 IBANM 355 OBANM $77 COHHON 


8H0G ,P 


f ILE 


( 


( 


( 


r lut 


OATC 011«B1 ^«6C 1 


o^ 

I 


arTN.s riLC.riu 

fTN 9RlM?*0UiH/ei-0B:SSISS| I — 

1. SUBROUTINE E ILE I N« N, IC«SC . 1 TABN0.DRAWN,CN6I> .APPR ,I SHCC T »NT«BLC , 

2. CO*TE (SrSNAN tCOLNAM »COLOE S » COL VAP t C XTR » X TP 1 1 COL tMULT • 

3. CONHON /lOUT/ JOUT,JlN 

A. CHARACTER NAH*A»0RAUN*A,EN6R*At APPR*« 


1 

1 


1 

? 


S. 
6 • 

7. 

8. 

9. 

10 . 

It. 

I?. 

13. 

lA. 

15. 

16. 
17. 
18* 

19. 

20 . 
21 . 
22 . 
23. 
2A. 
25. 
2^ • 

27. 

28. 

29. 

30. 

31. 

32. 

33. 
3A. 

35. 

36. 

37. 

38. 

39. 
AO. 
Al. 
A2. 
A3. 
AA. 
A5. 
A6. 
A7. 
A8. 
A9. 

50. 

51. 

52. 

53. 
5A. 
55. 


OIHENSION N AH|2) ,0RAUN|A I ,ENCR( Al , APPR( Al 

CHARACTER 0ATEwA|8r8MAH»A - - - 

OIHENSION 0AtEI2I,StSNAMI20I 
character COLNAHaA ,C 0L0ES*A - 
OIHENSION C0LNAHI2I rCOLOESI 121 
OIHENSION C0LVARIJ61 

COHHON /TLIRIT/ NN AHE , ICOL H , ICH A IN . JCCL H» JCHA IN 

character tnaheaa 

INTEGER TCASC .TTABLE, TSHEET 
COHHON /TNAME/ TNAHC(?,AI,NPTR|NI 
COHHON /TCASE/ TCASEII6I 
COHHON /TTABLE/ TTABLEI32I 
COHHON /TSHEET/ TSHEE T 1 1 6 , 3 2 1 

OIHENSION IPTRI9|27irfPTRt9i?l 

OIHENSION XTR(2,3I 
CHARACTER CXTR*AI6|3I 
Hf LNNAHE .EO. 01 00 TO 100 
C ADO SECOND AND SUBSEQUENT ENTRIES 

00 A I=I,NN«HE 

IF INAHtll iNEi TNAHEIlrlll 00 TO N 

IF INAHI2I .NE. TNAHEI2.III GO TO A 
GO TO 6 

A continue 

C TREAT AS A NEW NAH( IF NO HATCH WITH EXISTING NAHE 

GO TO loo 

6 NNsNPTRf 1I-|«ICASE 

C CHECK FOR HATCHING CASE 

IF ITCASEINNI .EO. Ol GO TO 110 
NTABLE:TCASEINN| * ITABNO - 1 
C CHECK FOR HATCHING TABLE 

IF ITTABLEINTABLEI .EO. 01 GO TO 120 

60 TO 12A — 

C CREATE FIRST RECORDS 

100 00 lOA 1=1,NNAHE 

IF (NPTRIII .LE.OI GO TO 106 
lOA CONTINUE 
106 TNAHE 1 1 ,I I:NAH| I I 

TNAHE I2|l ISNAHI2I - 

IF INPTR I 1 I .EO.OI NNAHC=NNAHE*1 
NPTRI I l=A*( 1-11*1 
I 10 1NPTR = NPTR( II 

NCASE=1NPTR*ICASE-1 
TCASC INCASE 1 = INCASE -H*2*l 
ITPTRsTCASE INCASE! 

NTABLE=ITPTR*ITABN0-1 
120 TTABLE INTABLC !=| 

C SEARCH FOR ALREX07 EXISTING HATCH FOR COLUHN NAHC 

12A JK=0 

00 126 L=1.9 
00 126 N=l,2 
JPTRIL • K I 




( 


( 


( 


1 


I 


i 

i 


r ILt 


date OIIMI 



2 

S6. 

126 



ST, 




SB. 




S9. 




60. 

c 



61. 

1 ss 


1 

62. 



2 

6S. 

116 



69. 



1 

6S. 



1 

66. 



1 

67. 



1 

6B. 

1)8 



69. 




70. 

C 



71. 

190 



72. 



1 

73. 

191 



79. 




7S. 



1 

76. 

199 


1 

77. 

C 



78. 

198 

a\ 


79. 


1 


80. 


to 


81. 


to 


82. 

I9S 



83. 




89. 




BS. 

199 



86. 

192 



07. 




88. 

C 



8». 

ISO 


1 

90. 



1 

91. 



1 

92. 



I 

93. 



1 

99. 



1 

9S. 



1 

96. 



1 

97. 



1 

98. 



1 

99. 



1 

too. 

c 



101. 

160 



102. 

162 



103. 

109. 

C 



los. 

200 



106. 

107. 

108. 
109. 

602 



no. 

302 



111. 

112. 



IPTRIL,n|:o 

JS:i«R((TKHCCTII(HC&TvMTABI:€«» 

ir ij3.eo.ci GO 10 iss 

PC ADI IG ’J3MPTR, GTSNAMf 0R«UN,rN6PtAPPPt0«TC: 

NCU COLUMN ONLY 
00 IS6 l:|,9 
00 life R=l.? 

IPTRIl iN>:jPfRU,KI - 

00 131 L:1.9 

ir IIPTPIL I II .GT.OIGO TO 130 
JP:L 

60 TO KO 

continue 

60 10 160 

ADJUST multiplier COLUMN 

ir INULT.CQ .1 .OP.ICOL .NE .01 60 TO 1*0 

00 l«l in, 30 

COLVARI Ii:COLVARII I/MULT 
1RX:C0 lVARI 3SI 

00 lAA |:|,IR> — 

RTRI 1 , I IZRIPIl, I I/MULT 

WRITE NEW COLUMN DATA 

ir IICOL.NE.OI 60 TO IRS 

JCOLM: 160*1 NTABLE-I MI0*IISHCFT-1 ••Jft 

J1 rJCOLM 

CO TO 1R9 — ^ 

JC0LN:iC0L 

Jl:JCOLM 

60 TO 1*2 

NRITE I20>JC0LM| COLNAM.COLOC S ,COl VAR ,CR TR, RTR 
IPTRI JK,1 |:J1 

IPTRIJN,2I:muiT - 

UPDATE CHAIN or COLUMN POINTERS 
ir ijR.EO.li Then 
JCHAIN=I6*I NTABLE-1 I*ISHCE T 
J3=JCH«1N 

WRITE I 16’JCHAINI IPTR,STSNAH,0RAWN,ENGP, APPR.OATE 

TSHECTi iSHCET.NTABlEmS - - 

60 TO 200 
ELSE 

JS:TSHCETIISHEET,NTABIEI 

WRITE < 16*J3 IIPTR,SrSNAM,0RAWN.EN6R,APPR.0ATE 
60 TO 200 

CNO ir -- 

PRINT WARNING MESSAGE 
WRITE I JCUT, |6?> 

popmatisx.***** all columns riLLEO rop This sheet »i 
60 to 200 

return to hCnU list 
continue 

WRITE ll9*|INNAME,IC0LM,ICHAIN,TNAMc,NPTR,TCASE.TTABLCtTSHFET 
WRITEI6 .602IIPTR 
E0RMATI91SI 

WRITE (6 ,30:^1 I TSHEETI I (NTABLC I , I = 1 , 1 6 I , 1 SHE E 1 , I'T«BL E 
rORMtT 1 161 SI 
RETURN 
END 
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f 




( 


GtTON 

SCVICN»IN?OB*CCSI l).6tT0N 

1 a«SG,« i«. 

2 «*SG,« Ifc. 

5 a«SG.A ?0. 

•• BFRCL TPF«. 

S auS( TPFt.iCGS. 


4H0C.P IMIT 


CT> 

I 

N> 

.Ck 


I 



( 


( 


( 


>*•* * 04TC 01 l«si P*6r I 

«rTN,s init.init 

F TN 9R IH2«0I/ l«/81-08lS«l?9t I - „ _ 

I. SUBROUTINC INITIICRI 

2 » COMMON /ILImIT/ NNAMC «1C0LN»ICN*IN 

3. CHARACTFR TN«MC*9 

9. 1NTC6FR TC*$CiTT*BLC|TSHCCT 

5. COMMON /TN8MC/ TN«M£ f I , NPTR M I 

6. COMMON /fCASc/ re«stu6» 

7. COMMON /TTABLF/ TT«BLC(32i 

8. COMMON /TSHEET/ T5HCC T | | 6 , J?l 

9. 1CR=0 

10. OeriNC FILE l«l I .BTSiUtJOATAl 

11. OEFINE FILE I M S 12 , S? ,U. JCh*I N I 

12. OEFINE FILr 20( StrOfTRiUi ^ICOtMt 

IS. FIN0I19MI 

I". RC801 19*1 ,E»RS100» MNiMC,IC0LM,ICM*lN,TN8Mt ,NRTR, 

IS. CTC8SE .TTftBLE.SSHEE T 

18« NRITE 16,90001 NN* ME , TN8ME , NPTR , TC8SE , T T8BLE , » SMt E I 

ir. 9000 FORMAT t IS/ I X ,9 1 2« 9 I /9 1« / 1 b lS/2 1 1 6l S/ I / 32 1 1 61 S/ I) 

18. RETURN - 

19. 100 1ER:| 

20. RETURN 

21. END 

e^ 

> END FTN 33 IBANK 78 OBANK S7S COMMON 

NJ . - . 

Ln - - - - . - .... ...... _ 


AHOG.R main 


L 


( 


main 


arTN.S MAlN.MtlN 

FTN 9filH2*0l/tA/ai-0»l«AI2l,|. -- 

1 . c create: 

?. C COAL OAltriCATIOM 

I. c stream and utility Table 

A. COMMON /lOUT/ JOUT , JIN, JTABLE 

S. ORTA JTABLE /a/, JIM/S/,J0uT/6/ 

fc. I0P=0 

r. C INITIALI2E POINTER TABLES 

•• CALL INITTIERI 

9. miER .NE. 0> THEN 


10. MRITET JOUT,?l 

11. 2 roRMATi* error in basic pointer TABLES*I 

12. ELSE 

IS. CONTINUE 

lA. END IF 

15. C SELECT FROM MENU 

16. 20 CALL MENU 

IT. CIOOO CALL TIOVtIUPI 

IS. STOP — 

19. END 


END FTN IT IBANK 19 OBANK 3 COMMON 


tSJ 

(T> SMOG.P MAP 


BPRT.S MAP 

FURPUR 2BR1HI E 34 STATU OI/IA/BI OSiSAtOT 



r 


( 


MAP OATC OII«ai PAbC 

St VIGNBIN208*CGS( II .M»P 

I *PAC« C6S»- - 

? »PPtP CGS. 

1 *M»P,I CGStlMAPtCGS.KOI 

' tlB svs«*Msrct. 

5 a 


dHOO.P nCNU 


a\ 

I 

N> 


-28 


( 


( 


HINU 

artN.S HtNUtMCNU 

rTN 9RiH^*0l/l*l/»l-0«l»l»lll , I - - _ 

!• SUBrOUT iNf nCMU 

?. COfINON /TOUT/ JOUT y JIN, JT«BLC 

]. 2 URITCIJOUT.IOI 

n, 10 F0RH«T(10K, *STRC«H •NOUTILITt TABLE MCNU*FF> 

5. WRITCIJOUT, INI 

6. IN FORNATI* I > OEFINF NfM TABLE*/! 

r. WRITE IJOuT. 181 

8. 18 FORNATI* ^ - REVISE EIISTiNG TABlE*/I 

». WRITEIJ0UT,?2I 

10. 2? FOBNATI* 3 - DELETE EKTSTIN6 TABLE*/I 

11. WRITE (JOUT,?bl 

12. 2b FORNAT|*-N - PRINT SELECTED TABLE'/* 

13. WRITE TJOUT, SOI 

IV. SO FORpATt* S - S*VE REVISION'//! 

IS. WRITE IJOUT , Sn I 

lb. SN FORMATISX, 'PRESS RETURN TO EXIT'//I 

IT. WRITE IJOUT, S8 I 

IB. SB FORNATlSA,' INPUT CHOICE IN It fORNAT*//! 

19. NO READ I JIN,N 2,ERR=N0I INO 

20. N2 format III! 

21. IF IINO.CT.SI GO TO NO 

22» IFllNO .EO.OI GO TO 1000 

23. GO To I iOO.700. SOO.NOO.SOOI .IND 

2N. C DEFINE lAUDI NSW TABLES 

25. 100 CALL DEFINE 

2b. GO TO 2 

2T. C EDIT EXISTING TABLE 

28. 200 CALL EOIT 

29. lUPrl 

50. GO TO 2 ' 

51. C DELETE EXISTING TABLE 

32. SOO CALL DEIETE 

3S. lUPsi 

SN. GO TO 2 

SS. C PRINT SELECTED TABLE 

Sb. NOO CALL PSELCT — . _ 

ST. G0 TO 2 

38. SOO G0 TO 2 

39. C SAVE REVISIONS 

NC. C SOO lUP:i 

Nl. C CO TO 2 

N2. C - 

NS. 1000 RETURN 

NN. END 

END FTN T| IBANK |20 OSANK S COHNON 


BHOG.P OPOATA 


BRRT,S OPOAT* 

j FURPUR 28R1H1 E Sb STnTU OI/IN/81 08:SNlll 



( 


< 


OPDAT* 


o«Tc oii«ai 




(T\ 

I 

VC 


StVICNB 

1 

2 

5 

4 

5 

6 
7 

a 

9 


IN208*CGSIII.0P0«T* 

(UBPOUTINC 


OPO«VAle««WN,F«IGAt*rPA» 
CHARACTtP 0R*UN«M ,CNGP«a.aPPR*« 

01 HE NS I ON ORAMN f R > t C N6R (N I • *PPR IN I 
COfINON /lOUT/JOUT , JIN 
CHARACTER TES*N irrES«N «BL ANNAN 


DATA TYES/’TES 
00 ? |si«N 
ORAUNII I:BLAnr 
EN 6RI I irBL ANN 


V.BLANN/* 


10 


APPRIl l=BL ANN 


11 

2 

CONTINUE 


12 


MRITE 1 JOUT , 101 



10 

FORKATlSIi 'ANSMER VES IF OPTIONAk e*T* IS 

f« Sf ENTFRCO'T 

1* 

1 1 

RE AOI JIN, I2.ERR:1 1 1 TES 


15 

12 

rORNAT 1 AN 1 


16 


IF ITES .EO. YYESI THEN 


IT 


MRITE 1 JOUT, ?0I 


18 

20 

F0RNATI5X , 'WRITE "ORANN BY" NAHE IN 

AI6 FORNAT'I 

19 

21 

READ! JIN|22 •ERRN21 » DRAWN 



20 

22 

FORHATINANI 


21 


WRITE 1 JOUT t SOI 


22 

30 

FORMATISX, 'WRITE ' 'ENGR" NAHE IN AI6 

FORNAT' 1 

2J 

11 

REAOI JIN,2? ,ERR:3I 1 EN6R 


2M 


WRI TE 1 JOUT, NO 1 


25 

NO 

FORNATISN, 'WRITE "APPROVEC BY" NAME 

IN A16 FORHNT'I 

26 

N1 

REAOl JIN,22 ,ERR:nI 1 APPR 


27 


ELSE 


28 


CONTINUE 


29 


ENO IF 


30 

JI 


RE TURN 

END - . 


8H0G ,P 

OUTPU 

T 



( 


( 


( 


OUTPUT 


r .OUTPUT 

I -- 

SUBROUT iNf OUTPUT! NAh.ICASC . 1 T ABNO . ISHC C T . I CR I 
COMMON /lOUT/ J0UT« JIN 
CHARACTTR N«M*« 

DIMENSION N«MI?I 
COMMON /TLIMIT/ NNAMC 

CHARACTER TNAM£*i» 

INTEGER TCASC.TTABLE.TSHEET 
COMMON /TNAME/ TNAMEI?,R|,NPTR!N» 

COMMON /TCASE/ TCASEIIGI 
COMMON /TTABlC/ TTABLC|S2I 
COMMON /TSHEET/ T$HEE T 1 1 b , 32 1 

CHARACTER GvSNAM*r .ORAHN*N.ENGR*4i APPN*«teA?€*«> 

dimension S VSNAMI20I.0RAWNI AI .ENGRIAI .APPRMI .date i?l 
CHARtCTCR COLNAM*n .COlDES*A 

DIMENSION COL NAM I?, 9 1 .COlDESI 3, V,9 I , COL VAR! Sb , 9 I , I P TR 1 9 , 2 I 
character 0UM9|? 

CHARACTER SDUM«S(9I,BLANK«1 

COUlvALENCb ISDUMI II.COLNAMd.l II - - 

dimension XTRI2.3.9I 

CHARACTER C »TR*« lb . !• 9 1 , AX TR*« ( 3.9, SI 
CHARACTER A COl VR «9 .BL NK* A 
DIMENSION AC0LVRIS.9. Ibl 
CHARACTER LPARaa .RPARaA 

DATA BUNK/* •/ - — _ 

DATA IPAR/»I */,RPAR/*l •/ 

data blank/* •/ 

1 DO A 1=1, NNAMC 
DO 7 J=l,2 

iriTNAMCfJ.II .NC. NAMIJII GO TO A 

2 CONTINUE _ - 

CO TO 6 

A CONTINUE 
ICR = 1 
CO TO S?0 

b NCASC=NPTRIII-I*ICASC 

NTABLC=TCASCINCASE l-l•ITABNO 

ISH:0 

DO « 1=1, lb 

IFITSHECTII.NTABlCI.CO.OI GO TO B 
ISH=I 

a CONTINUE 

IALL=0 

irilSHCCT .NC. 991 GO TO IB 

IALL=I 

ISHECTri 

lb ir ITSHCCTI ISHCCT.NTABLE I .CO. 01 60 TO SOO 
18 JS : TSHEET IISHCCT .NTABLEI 

RCAOflb'JII iptr.stsnam,oramn.cngr,appr,date 

iorNUM=o 

DO 2u I=>,V 

iniPTRll.ll .EO.OI go to 20 
lorNUM=iorNUM*i 
20 CONTINUE 
27 11=0 

DC 31 1=20, 1,-1 



f 


( 


OUTPUT 



56. 

57, 
5S. 

59. 

60. 
61. 
62. 
6 3 * 
6«l. 

65. 

66 . 
67. 
6S . 

69. 

70. 

71. 

72. 

73. 
79, 
754 

76. 

77. 
76. 

79. 

80. 
81. 
82. 
83. 
89. 

85. 

86 . 

87. 

88 . 

89. 

90. 

91. 

92. 
95. 
99. 

95. 

96. 

97. 

98. 

99. 
100 . 
101 . 
102 . 
103. 
109. 

105. 

106. 

107. 

108. 
109. 
I 10. 
111 . 
1 12 . 


ir ISTSN«H| 1 1 .Nt.BLNN I GO TO 32 

I8£|«*l 

31 CONTINUC 

3? IF III.CO.OI SO TO 38 . . 

1»1=1 20-lKI *9 

lr=10FNUM*ll 

IF (IT. IT. nil GO TO 38 

ITlsi lyf*l 1/8 

IF IITI.LO.OI GO To 38 
1*1520-1* 

DO 39 151*1 ,1,-1 
39 SVSNAMI I*Tr 1 irSTSNANl I» 

00 36 151,1 T1 

36 SYSMAHfl irBLNM - 

38 R50 

DO 90 MM=1,9 
J15IPTR(KM, 1 I 
IF IJl.LC.OI GO TO 90 

N5N«| 

RC80 I20*J1 MC0tl«*HTIilt»ilrl;?»rMC«t0tSTtiI»;3rTT5^Til7i “ 
CJ5 1 ,9 I , ICOL V«9( 1 ,K I ,1=1, 361 , 

C I(C*TPI1 ,J,N I ,1 :|,6I, J5l ,31 , ( IKTrI I* J,RI , 1=1 ,?n j=l , 31 
90 CONTINUC 

00 SO 1=1,36 
00 50 J=l,9 

00 50 «=lj3 

• COLVRIM, J, 1 I 5BLNM 
50 CONTINUC 

00 52 151,3 
00 52 J5l,9 
00 52 N=l,3 

• *TI»|K,U, I |:BLNN 

52 CONTINUC 

DO 60 151,56 
00 60 J5i,I0FNuN 
1FIC0LV8RI1 ,JII,60, 

IF II.LC.30I C0LV*RfI,JI=C0LV«R(l,Jf*IPTR(J.2l 

CNCOOE I62,0UNI CeiV«R«It<ll 

62 F0RN6T(C11.5I 

SUBSTRl *COL VRI 1 , J ,1 1 , 1 , 9 1 5SUBSTR I OUN , I * 9 | 

SUBSTRI «C0LVR(?,J,1 1,1 , 9 I 5 SUBSTR I OUM , 5, 9 I 
SUBSTPI ACOLVRf 3*J»II,1 |9|=SUBSTRtOUN»9,9l 
SUBSTR4«C0L*R(3, J, II, l,3l=SU8STR(0UN,10,3l 

IFIceiVARIl ,Jlt,60,60 - 

C BIT5(8C0LVRI1,J,II ,1,91 5BI 151 L PAR, 1,91 

C BITSlACOLVR IS,J,II , 19 ,91 5B 1 T$ IRPAR, 1 • 9 1 

5UBSTR|AC0L VRI 1 ,J, I I, 1,1 1 5SU6S T R ( LPAR , 1 , 1 I 
SUBSTR I ACOL VR I 3 , I I • 3, 1 I x SUSS TR I RPAR , 1 ,1 I 
60 CONTINUC 

00 88 JXlilOFNUM — - 

1750 

00 75 K=B,I ,-l 

IF ISUBSTRlSOUHfJI ,11,11. NC.BLANMI GO TO 76 
1751741 

75 CONTINUE 

76 1S56-IT 
1250 


OATC 011981 


PAGE 



( 


( 


OUTPUT 

IIS. 
1 l«. 
US. 
I 16. 
117 . 

1 la. 

119 . 

120 . 
121. 
122 . 
125. 
12H. 
I2S. 
12S. 
127. 
12B. 
129. 

1 so. 
1 SI. 
1S2. 
15S. 
1 S«. 
1 SS. 
I S6. 
I S7. 
1 S8. 
1S9. 

190. 

191. 

192. 
195. 
1*9. 
I9S. 
19fc. 
197. 
19S. 
199. 

150. 

151. 

152. 

153. 
1S9. 

155. 

156. 

157. 

isa. 

IS9. 
IbO. 
!&: . 
1 62. 
IbS. 
169. 

165. 

166. 
167. 

16a. 

169. 


oaTC 011981 past 


ir I 1 PTP|J, 2 I- 1 .01 .78, 

SUBSTBIVUUNI 

12=2 

SUBSTR isounijl, 12 * l,a>I 2 lzSueSTR(S 0 UMI Jill 18-121 

SUBSTPISOUH IJI I 12. I irSUBSTR UP«P, I ,1 I 
CNCOOC ll,77|S0UMt j»> IPTIHJ.2I 
77 rORH*T (111 

I7s| _ - _ 

7B 1*:I8-US«I 2M/2 

IF (II. CO. 01 60 TO 88 

SUBS TP (SOUP IJI . IX* 1 , 8 -II| = SueSTPlS 0 UIM Jl, 1 . 8 -II I 
SUBSTRISOUMI Jl. > . I X » = SUBSTR(BLNK, I ,ll I 
88 CONTINUC 

URITt IJOUT.IISOI 

II SO rORP*T(* CLF»P PAGC’I 

pause 

URITC IJ0UT.&9I 

99 rORH*TI*l*l 
WRITC iJOUT, 101 

10 FORHATtQX, *6(0066 6 . NAR 6 MAU.- 6 P*C€ F616«T €€NTC »*-8 

URITC IJOUT, 21 INXN,0R8UN.0«TC 
21 FORMAT I2X . *NASX * .1 9X, 'HUNTSVILLC. AL ABA NA * . 221 . 

I'FAClLITr ',2A9.9X,*0RAUN 8 T • , 989 , 91 , * OA TC *,2A9| 

URITCIJOUT, SOI lCASe.CM 6 P,lSMECT,lSM 

50 FORMXTIISX, ‘COAL GASIFICATION TASX TE AM • , 19 X , • C A SC NO. *, 

tll.llX.’CNGR. . — 1.9X9. 9X. *6*4661 12,* OF ’.121 - 

URITC IJOUT, 91 IXPPR ,1TABN0 

91 for*«at(9x,*coal gasification strcan 6 utilitt tabic*, 

tS9X,*APPR0»C0 *,9X9,9X,*TABLC NO. *.2X,ISI 
IF IITABNO .CO. II THCN 
URITCIJOUT, SSI STSNAH 

CLSt — 

URITCIJOUT, SI I STSNaM 
CNO IF 

SS FORMATl/lOX ,*MOOULC STSTCM * ,9X , 2089 I 

51 F0RHATI/9X, ’FACILITV SVSTC M • .91 ,2o A9 I 

URITC I JOUT, 61 I I ICOLNAMI I, Jl. 1 = 1,21, j:l , IOFNU**l 

61 FORNAII lOX, * 6 TRCAH MUM8C R* . 12x .289. 8 C Si .289 M 

URITC I JOUT, 701 I ICOIOCSI I, J,1 I . I = I . S I , J = 1 . lOF NU** I 
70 F0RMXTI7 X, •stream OCSCRIPT I ON * . 71 . 91 21 , 2 A* . A I I I 
00 66 K=2,9 

URITC I JOUT, 7211 ICOLOCSlI ,J,K».1=| ,3I,J=I ,I0FNUMI 
72 FORMATi S2X,9I2X.2A9,A1 I I 

66 CONTINUE 

URITC IJOUT,Bol 

80 FORMAT I I2X, *COMPCNEmTS*, lOX , 

t*9 **•«••**•••*••••• EB-MOLCS/hR 
£••••••••••••*•• ••! 

URlTC I JOUT, 90 I 

90 FORHATISX, •NAME*.7X, 'FORMULA* ,* - MOL-UT*! - 

URITC I JOUT. 1001 I lACOLVRIK, J,| I,R = 1.SI.J = 1 .IOFnUMI 

100 FORMATI /I X, •HTOROCCN H2 2.02 ' . 1 X .9 1 2 A 9 . A S 1 1 

URITC IJOUT , 1 101 I lACOtVRIK, J,2I .1=1 ,SI , J=1 .lOFNUI.* 

110 FORMATI IX, 'CARBON MONOXiOC CO 28 .0 I ' , 1 X ,9 1 2A 9 , 8 S • > 

URITCIJOUT, 120IMACOI«RIK,J,SI,k:|, 3I,J:1 ,10FNUMt 
120 FORMAT! IX, 'Carbon OIOXIOC C02 99.01 '.II .91284, AU I 

URITC IJOUT , 1 SOI I lACOLVRIK, J,9I,K=1 , SI , J=1 .lOFNUM I 


( 


OUTPUT 


O' 

I 

Ul 

UJ 



1 To. 

ISO 

rORMAII 


ITI. 


WRITE lUOUTi 


172. 

1 AO 

PORMATI 


1 73. 


write IJOUT, 


17a. 

ISO 

PORMATI 


1 IS. 


WRITE IJOUT, 


1 76. 

160 

PORMATI 


177, 


WRITE! JOUTf 


I7B. 

1 70 

PORMATI 


1 79. 


WRITE IJOUT, 


IBO. 

IBO 

PORMATI 


IBl. 


WRITE IJOUT, 


1B2. 

190 

PORMATI 


IBS, 


WRITE IJOUT, 


IBA. 

200 

PORMATI 


IBS. 


WRITE IJOUT, 


1B6. 

210 

PORMATI 


IB7. 


write IJOUT, 


IBB. 

220 

PORMATI 


IB9. 


WRITCI JOUT, 


190. 

230 

PORMATI 


191 . 


WRITE IJOUT, 


192. 

2A0 

PORMATI 


193. 


WRITE IJOUT, 


19a. 

2S0 

PORMATI 


19S. 


WRITE IdOuT, 


196. 

260 

PORMATI 


197. 


WRITE IjOUT, 


19B. 

270 

PORMATI 


199. 


WRITE IJOUT, 


200. 

280 

PORMATI 


201. 


WRITE IJOUT, 


202. 

290 

PORMATI 


203, 


WRITE IjOUT, 


?0A. 

300 

PORHAT 1 


20S. 

102 

CONTINUE 


206. 


JMAX=0 


207. 


00 mo JTl 

1 

208. 


IXX=COLVAR| 

1 

209. 


IP IIXX.CO.I 

1 

210. 


IP IIXX.GT. 

I 

211. 


K = 1XX 

1 

212. 


XTRI2.K ,JI= 

1 

213. 


ENCODE 162, 

1 

2IA. 


SUBSTRIAXTR 

1 

21S. 


SUBSTRI AXTR 

1 

216. 


SUBSTRIAXTR 

1 

217. 


SUBSTRIAXTR 

1 

218. 

1310 

continue 


219. 


IP IJMAX.FO 


220. 


DO 1320 1=1 

1 

221. 


00 111 A 11 = 

2 

222. 


IP ICXTRil, 

2 

223. 

ISIA 

continue 

1 

22A. 

1316 

CONTINUE 

1 

225. 


WRITE IJOUT 

1 

22b. 

x 

i iiaxtpim 


IX, •methane cma u.oa'.ix 

INOI I IAC«t;TNTtMriAl5TTN*if9*TO?t |IOP*»OH» 
1X,*N1TR0CCN N? ?8.0I*,1K 

l50MIAC0t.VRIR|J|fcl|li:|t]»,j:| » I OP HUM) 
IX, 'OXYGEN 02 J2.00*,Ix 

1601 Mice* VPIN|j«T>tM:| |]l *j:t,iOPNUM| 
IX,*AR60N AR AO. 00*, IX 

I TOT I tA€etvTTti«iOitti«rt i ji t J- 1 ilOf mm>- 
Ix.'MTOROGCN SULPIOC H2S 5A.0B*,1X 

leoi ( fACOLVRiR jJ.VTiR=l tIOPNUMi 

lx , 'carbonyl SULPIOC cos 60. OB*, IX 
1901 MACBLVRINi JtlOl |N71«Tt, j:i, IOPNUmI 
IX, 'CARBON OISULFIOC CS2 76.1A*,|X 

f OO M ♦ A C Ot ¥» ♦ M j r r t * » ?« M i 3 T i I » TOP IttTTrt 
1X,*SULPUR OIOXIDC SO? 6A.06*,|I 

?10l ( lACOLVPlRi J,t?l *K = I ,31, Jr| , lOPNUHl 
IX, 'AMMONIA NH3 IT. 03*, IX 

TTOI MACOL VRIK t J,1 SUK = I»3I, jrl.IOPNUHl 
1X,*HY0R0GCN CYANIOC HCN 27. 03*, IX 

T 30 T 1 1 Acet v*t« iO i 1% I TRr 1 i 3 T i ^ lormmt- 

1X,*HY0R0GFN CHLORIOC HCL 36.AP*,iK 

2A0M I A COL VRIR, J,ISI iX:l ,31, Ji I, lOPAUMI 
IX, 'NITROUS OXIOC NO 30. 01*, IX 

TSOM lACOLVRTR, JtlBI »R=ii3li JslitOPNUMt 
IX, 'CHLORINE CL 3S.AS*,|X 

?60M TACet VRIRfUrlTt^?! , 3T nT»t, lOPNUMT 
IX,*ETHYLCNC C2HA ?B.0S*,1X 

?T0l I IAC0LYRIN,U^18I ,Rri ,STi Jrl, lOPNUMT 
IX, 'ethane C?H6 30. 07*, IX 

?BOM I A COL VRIK • J, 191 ,H r 1 , 3 T , J:-1 , lOPNUMl 
IX, 'PROPYLENE C3H6 A2.09*,|I 

290MIAC0L VIMR„Tt?OT tK a 1 , 3 1 ,^a| , t»PIHm» 
lx, 'PROPANE C3HB AA.09*,1X 

300 M lACOLVRIM, J,?l T ,M :i , 3 ) i J=l i lOPNUMI 
1X,*SULPUR S 3?. 07*, IX 


• I6PNUM 

3 S,JI 

01 60 TO 1310 
JMAxi jMAxrlix 


xTR(?,lc , J|*IPTR|J,?I 

BUM! KTRI2,K,UI 

(1,J,KI ,1,A|:SUBSTR(0UM,1,AI 
l?,J,KT , l,AI=SU6STR|0UM,S,A| 
I3,J,KI , 1,AI=SUBSIRI0UM,9,AI 
IS, J,RI, 1,31=306 STr( OuM ,10,31 

.0 1 60 TO SOB - - 

, JMX* 

I , lOPNUM 

I, II I .NC .BLNX I GO TO 1316 


, 1 31 ?t ICXTRIA, i,i|) , k=I, 6 I,XTrI 1 , 1 , 111 , 
,J,n,K = l, 5 l,J=l, 10 F NUM k 


9I2AA 

9 C?A% 

9 I 2 AA 

9 I 7 AA 

9 |?A* 

9 I 2 AA 

9 I 2 AA 

9 I 2 AA 

9 I 2 AA 

9 I 2 AA 

9 I 2 AA 

9 I?AA 

9I2AA 

9 I 2 AA 

9 I 2 AA 

9 I?AA 

9 i?AA 

9 I 7 AA 


i 


r 


( 



I 


I 


OUTPUT 


DATE 011*tl PA&C S 


1 

1 


1 

1 

1 


ON 


227. 

22t. 

229. 

250. 

251. 

252. 
23S. 
239. 
23i, 
23b. 
237. 
23». 
239. 
7«0. 
2«il. 
?•!?. 
293. 
299. 
29b. 
2%b. 
297. 
299. 
299. 
2SO. 
2SI . 

252. 

253. 
25«. 

255. 

256. 

257. 
250. 

259. 

260. 
261 . 
262. 
263. 
266 . 

265. 

266 . 
267. 
260. 
269. 
2 70. 


1312 rORMAT lll,«A9,2X.2«9trS.2tlXt9(2A6.ASII 

1320 CONTINUE - 

300 Ii:3-JNAX 

00 1322 1=1 .IX - 

HRITC tJOUT, 13261 
1326 POPNAT I'M 
1322 CONTINUE 

UPi TE(jOuT, 3IO I «4*COi«R(lhrrfr22>rN>«-r§PW»lrI«E«KHT« — 

310 rORHATISX.'TOTAl DAT • , 1 9X .9 12AN.A SI I 

WRITE IJOUT.3201 I I ACOL VRIM . U. 231 .N = I , SI t J=1 . IoENUNI 
320 FORMATI IX. 'WATER H20 10 .02 * . I X .9 1 2A6 , A3 I I 

WRITE IJOUT. 310 I ( lACOL VR( R . J, ?6 I .M = 1 . SI «J = 1 .lOFNUNI 
330 FORNATI 5X. 'TOTAL WE T * 1 9 X ,9 ! 2A6 ,A 3 1 1 

WRITE IU0UT.326I - 

326 rORNAT(S2X. 


C'**66*****«*******«»| 

WRITE (JOUT , 360 I I ( ACOL VR IK , J ,25 1 .M = 1 , SI ,J=l,IOFNuM| 

360 FORNATISx. 'TOTAL 6A5/L IQU 10 * , 1 2X .91 2 A6 , A 3 1 1 

WRITE IJOUT, 150 I »IACOkVRIN,J,26l,KS| ,SI ,J=I , EOF NUM» 

350 FORNATI 1 X , 'COAL * . 20X , 9 I 2A6 , A3 1 I 

WRITE IJOUT, S 60 I 1 1 ACOl VRI N , J, 27 1 , N = I , S I , J= 1 . lOFNUM I 
360 FORHATI IX , • ASH ' ,29X , 9 1 2 A6 , A 3 I I 

WRITE I JOUT, 365 I I I ACOL VR| N , J, ?0 I ,R = 1 , 31 ,J=I .IOFNUHI 
365 FORNATI 1X,*CARB0N*,26X,9I2A6,A3II 

WRITE I JOUT, 3 701 1 1 ACOLVRIK , J, 291 ,R=^| , SI , j: 1 , IOFnuhi 
370 F0RHATI5X, 'TOTAL SOL IDS * , 1 6X , 9 1 2A6 , A 3 1 1 

WRITE I JOUT, 300 1 I I ACOL VRi K , J, SO I ,R = 1 . S I , J = 1 , lOF NUN I 
300 FORNATI lOX, ' TOTAL STRE AN* , 1 1 X ,9 12 A6 , A 3 1 I 

WRITE IJOUT, 390 I 1 1 ACOL VRI R,J, 31 l,R=l , SI ,J=1 ,10FNUN| 

390 FORNATI/lX.'TCNPERATURE.OEC F • , 1SX,9 1 2AP , A3 I I 

WRXTClJOUT.OOOl llACOCVRlR,J,3aiHI=S»3l»U=l,IOFNuNI 

6 00 FORNATI lX,'PRES5URE,PSlA',19l,9l2A6,ft3M 

WRITE I JOUT, 6 10 I I lACOLVRIK, J, I3I,R=1, SI ,J=1 , lOFNUNi 
610 FORNAT tlX,'6AS/LlO HOLE WE ICHT ,LB/LB>NOL * ,2X . 9 (2 A6 , A 3 I I 
write Ij 0UT,630| MAC0LVRIN,J,36I,N=1 ,31 ,JS1 .lOFNUNi 
630 FORNATI IX, 'POWER, KW I B TU/HR I ' , 1 6 X, 9 1 2A6 , A 3 I I 

PAUSE 

500 IFIIALL .EO. 01 GO To 520 

1SHEET:|SHEET.| 

IE II5hEET.GT.i 6I CO TO 520 
60 TO 16 
520 RtTURN 

ENO 


ENO FTN 916 IBANK 3A96 OBANK 575 COnnON 


SHDG.P PSELCT 


SPRT.S PSELCT 

FURPUR 2BR1HI E 36 S76T11 01/16/81 08:56t26 


I 


r 


( 


PStLCT 


0«TC 0I14I1 


pact 


SCVICNB1N?0S*CGSI n.PSClCT 


crt 

I 

ui 

ui 


1 

2 
J 
« 

5 

6 

7 

8 
9 

10 

11 

1? 

IS 

1« 

IS 

18 

IT 

18 

19 

20 
21 
22 
2S 
2«i 


10 

11 

12 


20 

21 


SUBPOUTINC PS€l€T 

COMMON /lOUT/JOUT , JIN 
CH«P«CTCP N*H*N 
DIMENSION N«MI2I 
CharactEP rfs*P|TrES»p 
0»T» YES/'TES */ 

OETEPMInE 8*EP»lt-T*Bie - _ 

CALL SELECTlNAMtlCASCtlTABNOI 
StLECT ONE SHEET OP ALL SNCETS 
call SHTNUM(ISHECT) 
lEPrO 

CALL OUTPUTINAM.ICASE.ITABNO.ISHCET.IERI 

ir HEP .EOt 1) GO TO r - 

NPITEIJOUT.IOI 

rOPMATI* ANSHEP TES TO POINT NOPC INDIVIDUAL SHEETS* I 
REaOIJIN. I2.EPP:11 ITTES 
FOPMAT (AN I 

IF ivtes.eo.tesigo to N 

WPITEI JOUTifOl - . 

FORMAT(SI,*AnSmER TES TO PROCESS MORE TABLES' I 
PEAD(JiN.12»EPR321»TTES 
IF ITTES. EO.TESI 60 TO 2 
RE TURN 

end 


BHDG .P 


select 


1 


f 


r 


SELECT 

aETH.S SELECT, SELECT 
FTN 9RlH?*0l/l*/»t-0«iS%(«, • 


subroutine SELCCTINAH.ICASE ,IT«BN0,LT«BLC I 

COMMON /lOUT/ J0UT,UIN 

COMMON /Tl I Ml T/NNftMC 

CHARACTER TNAMCaii 

INTE6ER TCASE.TTABLE 

COMMON /TNAMC/TNAMC NPfRTRf - - 

COMMON /TCASE/TCASE IlSI 
COMMON /TTABLE/TTABLCI3?! 

CHARACTER NAN*A 
DIMENSION NAMI2I 
WRITE IJOUT, tOI 

10 rORMATlSR,*MRITE FACILTTr NAME IN AB FORMAT*! 

n RERDIJIN, 12 ,CRR:ll I NAN 
1? rORMAT(2AAI 

WRITE ( J0UT,20> 

20 rORMATlSX, 'WRITE CASE NUMBER IN 11 PORMAT'l 
21 REA0|J1N,72,ERR:2I I ICASE 

22 rORMATIlil - 

WRITE < JOUT, !Q) 

SO rCRHAT ISX, 'WRITE TABLE NUMBER IN II FORNAT*! 

SI REAO« JIN,S2,ERR=iI I ITABNO 
J2 FORMATIllI 
LTABLE=0 

IFINNAMC .EO.alRETURN 

00 S6 iri.NNAME 

IFINAMIII.NE.TNAME I l,IM60 TO SB 
IFINANI2 I .NE.TnAME 12, III CO TO SB 
60 TO SB 
SB CONTINUE 

RETURN 

38 NCASE=NPTR( I|>1*1CASE 

IFITCASEINC ASEI.EO.OIRETuRN 
NT ABL E=TC AS E INCASE 1-1 *lTABNa 
IFITT ABLE IN table I.EQ.OIRE TURN 

ltableintable 

RETURN 

ENO 


END FTN lOS IBANK |0R OBANN BS COMMON 


BHOGfP 


SHEET 



r 


SMCET 


date Oll*tl 


arTN.S sheet, SMECT 

ETN 9«|H2*0i/|A/«|-0ttS«(«lv» 


ON 

I 

u> 

-J 


10 
1 1 


SUBI>0UTINE sheet II SNCCr, DATE, STSNAHtNTABLCI 
INTEGER TSMEET 

CONHON /TSHE£T/TSHEETIU,32I 
character svsnam*^ ,oate*« 

OIHENSION STSNAM|20I,0ATEI2I 

COHHON /lOUT/ JONTt^IN- ■ - 

MRITE IJOUT, 10 I 

rORHAT ISKt*MRITE SHEET HUNGER IN It fORNAT HlfH LtAOINO rCROrS*l 
REA0ljIN,l2,ERR:il I ISHEET 


10. 

12 

rORNATII2> 

11. 


lEINTAOlE .EO.OI 60 TO 1* 

12« 


lEITSHECTl ISHEET (NTOOtEtiEOcRt 

IS. 


NTAtLC:-NTAOLE 

I*. 


ELSE 

IS. 


return 

IG. 


END IE 

IT. 

IN 

NRITEfJOuT .201 

10. 

20 

EORNATfSli*«RITE OAfE IN fORHAf 

10. 

21 

REA0IJIN.22,ERR:21 1 OATE 

20. 

22 

E0RNATI2A6I 

21. 


WRITE fUOt;T, SOI 

22. 

10 

EORNATlS>**WRITE STSTEN LAOEl T 

2S. 


t* INDICATED VII.**'. TAX. *••1 

2*. 

SI 

RE AOI illNi S2 »ERR = St t tSTSNANIIt^ 

2S. 

S2 

EORNATI lOA* 1 

26. 


SrSNAN|20l=* • 

2T. 


RETURN 

20. 


END 


TNCN 


N«/00rTT*t 


A7G rORHAT MITHIN TK* ’.INITS* 


END ETN T? IGANM |]7 OBANM SI* CONHON 


•hog.R 


ShTmUn 


•RRT.S SHTNUN _ - 

EURRUR 20RIH1 ESA STuTIl 01/lR/tl 00tS«lll 


( 


( 


SHTNUH 


SfVIC 


BtN?08*CGS( D.SHTNUM 

GUBROuTINF 


&MTNUMI14MCC1 » 


2 COHMON /lOUT/ JOUT.jm 

S WRITEIJOUT.IOI 

* 10 rORMAT ISK, *UPITC SHCCTI1>|6I NUMBER 10 BC RRlNTt* IN |? EORmaT*, 

S l*t USING LEADING 2ER0ES*/ 

B CBk,*USE 99 ir ALL SHEETS ARE REQUIRED*! 

T II READ<JIN«I2,ERRc|| I ISMCCT — . - _ 

8 I? roRHATlI?! 

9 Return 

10 END 


date OllABl 


BHOG.P UPDATE 

BPRT.S UPDATE 

FURPUR 28R1H1 E Ifc STATll 01/19/BI OBiSNiI? 


<T> 

I 

Ul 

CD 


( 

PBGE I 


( 


UPOATt 

SeviG«(BlN?06*CGSI 1 1 .UPDATE 

1 a«s6|TF >TPC*H,u9SiSA»ceA Ta t iC 

2 iCOPr.CN CGS.tSTRFAH. 

3 BCOPTtGH |R.,STPt*n. 

9 BCOPr.CN I6 .|STRE«m. 

5 •COPy.GN ?0., STREAM. 

6 axOT MlRPtOS.TPNO 

T STREAM 

8 8TREE stream 


8H0G.P XHAP 


8PRT.S XMAP 

FURPUR ?8R1H1 E3b S7RT11 OIFl«/81 OStSAtS? 




(Ti 

I 

Ul 

VO 


t 




APPENDIX A 

DOCUMENTATION (TiECKLIST 


A-1 


DOCU.MENTATfON CHEOKLIIiT 


r<oq u i r ed 

1. Title Page 

2. Table of Contents 

3. Abstract 

4. Introduction 




a. Objective or Purpose 

b. MSFC Form 3569 

c. Background 

d. Related 

6. Problem Task Description 
6. Method of Solution 


Program 

Ds 

sc r i pt i on 

a. Operating Environment 

(1) 

Hardware 


(a) 

Computer 


(b) 

Cora Roquirement 


(c) 

Magnetic Tapes 


(d) 

Card Punch 


(e) 

Plotter 


(f) 

Drum/Disc 


(g) 

Other 

(2) 

Software 


(a) 

Operating System 


(b) 

Programming Languago(s) 


(c) 

Typo of Run 


(d) 

Library Subroutines .. 


b. Program Specifications ... 

c. Subroutines or Subprograms 

(other than library) ... 


d. Source Code Listing 

e. Detailed Flow Charts 

8. Operating Instructions 
a. Deck Setup 

( 1 ) Deck Sequence 

(2) Restart Sequence 

(3) Operator Instruction Card . 


i3z: 

V 


✓ 

ZJZL 


If not contained 
herein can be 
Comp leted found in; 


v/ 

v/ 


i 


1 


✓ 





•4 


i 



1 


A- 2 


(4) Magnetic Tape Save Labels . 

(5) Computer Time Requircmentn 

b. Input 

(1) Cards 

(2) Magnetic Tapes 

(3) Drum/Disc 

(4) Other 

c. Output 

(1) Cards 

(2) Magnetic Tapes 

(3) Drum/Disc 

(4) Printout 

(5) Plots 

(6) Other 

d. Restrictions and/or Limitations 

e. Diagnostics 

f. Test Case 

9. Symbols 

10. References 

11. Appendices 

a. Documentation Checklist 

b. Documentation Approval 

c. Other 


1 


A- 3 


APPENDIX B 


DOCUMENTATION APPROVAL 


DOCUMENTATION APPROVAL 


I 


Documentation Prepareil Hy ; 


JiJbdJ 

' Signature 




Name (Typed) 


Mr^A. 


Title 




ion and Telepho 


Organizat 


ne No. 


Date 


Documentation App^'cve-.l ^'.y; 
(Supervisor of Person Prena. nig 
Documentation ) 


• 1/ L' 

V y >*y-_ ■ 

^ijanaturc 

Dave Johnson 

Name rTyped 7 

— S' •' 

Title ^ 

C.:^ C . <psao^^ 

Organization and T^epnone No. 



Date 


Documentation Approved By: 
Huntsville Computer Complex 
(Project Officer cr Monitor) 


» 1 r * * ^ i ^ 

y(>.K *•’>-• 

t*V » ■ 


Sighatui^^' ' 
Van McAulsy 

Name (Typed ) 

Me tk eey ^l^ ^a n 


Organiza^i^ ^^^”^^e\epHone No. 

S-28-81 

CiTe 


MaAA-MSSC 


B-2 


